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Industria 


umario 


Argentina 


tiene nuestra computadora 
y veamos algunos ajemplos. 
(pag. 26) 
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7 y 25) - Club de Usuarios 
(pag. 30) - Critica de Libros 
(pag. 31)- Raiting Soft (pag. 
32) - Mailing (pag. 34) 


SPRITES VIVOS 

Abramos bien los ojos y 
aceitemos nuestra mente 
porque aqui va la palabra 
magica que hara posible 
todo este desarrollo: 
Hook! (pag. 5) 

^QUE ES LA VRAM? 

Para aprovechar al maximo 
las posibilidades del Basic, es 
muy importante no 
programar siempre con las 
mismas instrucciones. (pag. 
6 ) 

DOS 


La production nacional de computadoras 
personates ya es una realidad indiscutible, como 
lo podemos observar con la Talent MSX. 

La mayor parte del proceso de fabricacion esta 
hecho en Argentina, con componentes 
comprados aqui. Entre ellos podemos citar: 
circuitos impresos, resistores, capacitores, 
transfOrmadores, algunos conectores , fuentes 
de poder, piezas plasticas, disipadores, 
tornilleria, cables, manuales y embalajes. 

Los procesos locales son la insertion y soldado 
de componentes en las plaquetas de circuito 
impreso, asi como el armado final y pruebas. 
La fabricacion de las Talent MSX se realiza en 
una planta en la ciudad de San Luis que 
mantiene un ritmo de fabricacion de <40.000 
computadoras por aho y 2.S00 perifericos. 
Ademas, las perspectivas son promisorias: 
espera duplicar estas cifras en breve tiempo. 

LOS EDITORES 


por TALENT, y el resto de 
las computadoras. (pag. 1 8) 

MSX LOGO 

Otra vez la empresa 
TELEMATICA extiende sus 
desarrollos a las manos de 
los usuarios de sus 
computadoras. Se trata esta 
vez del programa que nos 
permitira trabajar en 
lenguaje LOGO. Pero esta 
vez no viene solo, lo 
acompafia un manual 
preparado por Hilario 
Fernandez Long y Horacio 
Reggini. (pag. 16) 


PROGRAMAS 

Ta-Te-Ti (pag. 8) 


Comenzaremos viendo 
algunas funciones 

complementarias a los 
comandos disponibles de 
este sistema operativo, 
desde Basic, (pag. 10) 


TALENT MSX 
DPC-200 VS. EL 
RESTO 


Es un cuadro de las 
especiales caracteristicas de 
la primera maquina lanzada 


ALTA RES0LUCI0N 

Aprendamos a aplicar todas 
la« facilidades graficas que 


Movimiento Armonico 
(pag. 1 4) - Juego de la Oca 
(pag. 20) - Cajero (pag. 23) 
- Editor Assembler (pag. 24) 





TAMBIEN SONY ES 
MSX 


Esta compatila japonesa mostro su modelo MSX-2, 
Una ampliation en todo seritido acompaiia a es- 
tas computadoras, desde una ROM de 64K y una 
RAM de I92K, de los cuales I28K son destina- 
dos para realizar graficos. 


IBM HACIA MSX 

Como se pudo conocer en INfORMAT 86, IBM 
lanzara pronto los nuevos modelos de computa- 
doras que incorporan el sistema MSX. 

Esto no signifies que los nuevos ordenadores sean 
totalmente MSX, pero si se sabe que habra com- 
patibilidad sobre e! software de gestion y 
aplicaciones. 

No hubo demasiada information de este tema, so- 
bre todo de la parte tecnica que format jn a es- 
tos ordenadores. 

Se marca, con esto, el avance del nuevo sistema, 
que se expande rapidamente, y ha seducido a una 
de las martas mas import antes del mundo de la 
informatics. 


UN MOUSE PAEA MSX 


Parece que la compania TELEMATICA esta 
decidida a informatizarnos a todos y con el 
mejor iwel posible. 

Cada vez nuestra Talent se parece mas a una 
PC, Al borde del infarto programatieo, nos 
puso la notiela que I lego hasta nuestros oidos, 
y la presencia de este raton electronico que 
no tiene absolutamente nada que envidiarle a 
tos de otras maquinclas. 


Este pequeno ser, que pesa 200 gramos con 
cola y todo, vierte acompanado por urt 
programa que nos permitira disenar, almacenar 
e imprimir todas las pantailas que nuestra 
imagination nos sugiera. 

Ademas, puede ser usado simplemente como 
joystick y mil utfidades mas que veremos en 
una prdxima nota dedicada a este hermoso 
roedo-r de pantailas, 



UN TEACH-ROBOT 
DE VIETA 

La flrma VIET A —esta compania es mas conocida 
por su comerdalizacion de los equipos Pioneer- 
ha creado un rtovedoso brazo-robot que ayudari 
a ensenar y resolver los problemas de robotics mas 
frecuentes e importantes, 

Este nuevo periferico es compatible con las MSX 
y su manejo se realiza desde el software. 

La venta de este kit permite a los usuarios fami- 
liar izarse con este tipo de monstruos electroni- 
cos que suponemos en poco tiempo se comer- 
cializaran de tal forma que pasaran a ser un inte- 
grate mis de cada casa. 
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Basic I 

SPRITES VIVOS 

Abramos bien los ojos y aceitemos 
nuestra mente, porque aqui va la pa - 
labra magica que hara posible todo 
este desarrollo: Hook! 


amos a mostrar la forma de 
darles movimiento automati- 
co a nuestros SPRITES. Esto 
quiere declr que los sprites 
van a circular por la panta- 
lla a la velocidad y con la direccion que 
uno quiera, sin tener que hacer una in- 
finidad de PUT SPRITES. El encargado 
de este trabajo va a ser un programita 
en Assembler. Pero a no desesperar 
pues aunque no sepamos Assembler, es- 
te metodo de movimiento automatico 
nos resultara muy sencillo. 

Las primeras lineas de todo programa 
que utilice este sistema deben ser las si- 
guientes: 

10 CLEAR 200, -6016 LDHL, 6912 

20 FOR A = -6016 TO -6005 CALL 74 
30 READ A $ ADD A,0 

40 POKE A, VAL (“&H” + AS) CALL 77 
60 DATA 2 1 ,0, 1 B,CD,4A,0,C6,0,CD,4D,0 
70 DATA C9 

<Que hicimos? Muy facil: cargamos el 
programa Assembler, que esta en las li- 
neas DATA, en un lugar de la memoria 
en que no “moleste”. Para eso, en la 
linea 10 el CLEAR reserva'ese lugar de 
la memoria, para que nuestro progra- 
ma no pueda ser borrado. El programa 
es cargado desde la posicion de memo- 
ria - 60 1 6 hasta la - 6005. Pero no nos 
preocupamos si no lograrhos entender 
todo, de cualquier manera podremos 
hacer andar nuestro programa. Las si- 
guientes lineas son: 

80 POKE -607,232 

90 POKE -608,128 CALL 59520 

100 POKE -609,205 

Estas tres lineas colocan una orden en 
un lugar por el que la maquina pasa muy 
seguido, exactamente cada 1/50 de se- 
gundo. La orden es la siguiente: realice 
el programa en Assembler. O sea que 
cincuenta veces por segundo la maqui- 
na leera esa orden y correra nuescro 
programita. Pero no tenemos de que 
preocupamos, pues la cantidad de tiem- 
po que se pierde es minima. 

Luego de esto podremos realizar nues- 
tro programa. Cuandoya estemos en un 
modo de pantalla que nos permita Spri- 
tes, hayamos definido los sprites y ten- 


gamos colocado uno en la pantalla con 
una orden PUT SPRITE podremos ha- 
cer lo siguiente: 

300 POKE -6015, N *4 + M 
310 POKE -6009, K 

En realidad no se debe teclear realmen- 
te M, N ni K, sino lo siguiente: 

— En lugar de N, el numero del sprite 
que deseamos mover. 

— La M debe ser reemplazada por un 
0 cuando se quiera darle el movimien- 
to vertical (o directamente no poner 
nada en lugar de + M) y por un I 
cuando queremos darle movimiento 
horizontal. 

— La K es la velocidad de desplazamien- 
to. I es el movimiento mas lento de 
los crecientes (hacia la derecha o ha- 
cia abajo) y 255 es el movimiento 
mas lento decreciente (hacia la iz- 
quierda o hacia arriba). Los numeros 
intermedios dan velocidades mas 
altas. 

Lo que hacen est&s dos lineas es cam- 
biar al programa en Assembler, que has- 
ta ahora no se referia a nada en especial, 
para que se refiera a un Sprite, una di- 
reccion y una velocidad concretas. Has- 
ta ahora el programa ya estaba 
funcionando, pero sin modificar nada 
que podamos ver en la pantalla, o que 
importe en nuestro programa. Ahora 
los Sprites ya tienen movimiento. 

Es muy importance anular esa orden que 
llama a nuestro programa Assembler 
cuando querramos volver a una panta- 
lla de texto, si no queremos ver bellas 
obras de arte abstracto en la pantalla. 
Para eso basta con neutralizar a la linea 
100 con la siguiente: 

600 POKE -609,201 

Finalmente, podemos darle a nuestros 
Sprites no solo movimiento vertical u 
horizontal, sino tambien diagonal. Para 
eso modificaremos nuestro programa 
inicial, creando una segunda orden data 
similar a la de la linea 60. Tambien po- 
demos crear dos ordenes mas como las 
de las lineas 300 y 3 1 0, porque hay que 
aclarar la direccion y la velocidad del 
movimiento vertical y el horizontal, que 



en realidad actuan en forma indepen- 
diente, pero al hacerlo al mismo tiem- 
po nos dan el efecto de un movimiento 
en diagonal. Aqui va un programa de 
ejemplo: 

10 CLEAR 200, -6016 
20 FOR A = -6016 TO -5994 
30 READ AS 

40 POKE A, VAL (“&H” + AS) 

50 NEXT 

60 DATA 2I,0,IB,CD,4A,0,C6,0,CD,4D,0 
70 DATA 2 1 ,0, 1 B,CD,4A,0,C6,0,CD,4D,0 
80 DATA C9 
90 POKE -607,232 
100 POKE -608,128 
1 10 POKE -609,205 
• 120 SCREEN 2,1 

130 SPRITES (I) = STRINGS (8,255) 

140 PUT SPRITE 1,(127,100) 

150 POKE -6015, I* 4+1 
160 POKE -6009,2 
170 POKE -6004,1 *4 
180 POKE -5998,3 
190 AS = INPUTS(I) 

200 POKE -609,201 

Entre las lineas 10 y I 10 cargamos, pro- 
tegemos y ponemos a andar al progra- 
ma Assembler. En la 1 20 vamos a la. 
pantalla de SPRITES, en la I 30 creamos 
uno (un cuadrado) y en la 140 lo pone- 
mos. En la I 50 orientamos la primera 
parte del programa Assembler hacia 
nuestro Sprite en movimiento horizon- 
tal, y en la 170 cargamos la velocidad 
de ese movimiento (2). En la 170 y la 
1 80 hacemos lo mismo para la segunda 
parte del programa y el movimiento ver- 
tical, con velocidad 3. La 190 solo es- 
pera que toquemos una tecla: fijemonos 
que aunque no ejecutemos ninguna or- 
den nuestro Sprite se sigue moviendo. 
En la 200 “apagamos” nuestro progra- 
ma Assembler para volver a la pantalla 
de texto sin problemas. 

En sintesis, esta es una forma rapida y 
sencilla de darle un movimiento oblicuo 
y automatico a nuestro sprite, lo que les 
dara mas velocidad y precision a nues- 
tros programas. 

Gustavo FAIGENBAUN 




LA VRAM? 


Para aprovechar al 
maximo las 
posibilidades del Basic , 
es muy importante no 
programar siempre 
con las mismas 
instrucciones. 


ara descubrir las posibilidades 
ocultas de nuestra MSX que 
nos permitan hacer mas cosas 
y mas rapido hay que apren- 
der a usar algunas instrucciones que 
no nos resultan muy familiares. J 
Entre esas instrucciones estan VPEEK 
y VPOKE (Video PEEK y Video POKE). 
Tecleemos lo siguiente: 

VPOKE 1000,4 
-RETURN- 


iQUE ES 


Aparentemente no paso nada. Ahora 
tecleemos: 

PRINT VPEEK (1000) 

-RETURN- 

Si lo hicimos bien, en la pantalla apa- 
recio un 4. ^Que paso? La orden VPO- 
KE 1000,4 es la forma correcta de de- 
cide a nuestra MSX "guarda el nume- 
ro 4 en la posicion de memoria de vi- 
deo numero 1 000". La posicion de me- 
moria de video numero 1000 es una 
pequena variable, una variable que so- 
lo puede guardar numeros entre 0 y 
255. Si hubieramos tecleado VPOKE 
1000,300 se hubiera producido un 
error. PRINT VPEEK(IOOO) le indica a 
la maquina que escriba en la pantalla el 
contenido de la posicion numero 1 000. 
Nuestra maquina tiene 1 6384 posicio- 
nes de memoria igualitas a la 1000 en 
donde guarda numeros entre 0 y 255. 
Todas estas posiciones juntas se lla- 
man VRAM (Video Random Acces Me- 
mory). Cada una de estas "variables" 
tiene por nombre a un numero entre el 
0 y el 1 6383 y en todas ellas podemos 
escribir o leer datos con VPEEKS y 
VPOKES. Pero a djferencia de las ver- 
daderas variables, los datos que guar- 
damos en la VRAM tienen una funcion 
muy importante: en esos numeritos es- 
ta escrito lo que vemos en la pantalla. 
Por ejemplo: 

SCREEN 0 
-RETURN- 
VPOKE 0,100 
-RETURN- 


^Aparecio una "d" arriba y a la izquier- 
da de la pantalla? Es muy simple: en la 
memoria numero 0 se guarda lo que 
aparece en el primer cuadradito de la 
pantalla. Lo que le dijimos a la maqui- 
na es "pone en el^primer cuadradito de 
la pantqlla el caracter cuyo codigo es el 
numero 100". El caracter numero 100 
en el codigo de nuestra maquina (codi- 
go ASCII) es una "d". 
entremos pues el siguiente programa, 
y hagamoslo correr. 

10 FOR A=0 TO 960 
20 VPOKE A, 32 
30 NEXT 

El caracter 32 es el espacio en bianco, 

Figura 1 


y la "SCREEN 0" (pantalla numero. 0) 
tiene 960 posiciones. Por eso nos ha 
borrado todos los cuadraditos de la 
pantalla, incluso los de las teclas de 
funcion (ultimo renglon) que no se van 
con un CLS normal. Para que aparez- 
ca en pantalla nuevamente el conteni-’ 
do de las teclas de funcion debemos 
pulsar SHIFT. 

Veamos otro ejemplo: 

10 FOR A=0 TO 960 
20 B=VPEEK(A) 

30 IF B =97 THEN VPOKE A,B-32 % 
40 NEXT 

Una vez que hayamos entrado el pro- 
grama, tecleemos unas cuantas letras 






minusculas y hagamoslo correr. Si to- 
do va bien, todas las letras minuscu- 
las de la pantalla seran cambiadas por 
mayusculas, incluso las de las teclas 
de funcion. Lo que hace este progra- 
ma es: 

-En la Imea 20, lee los datos de las po- 
siciones de memoria y los guarda en la 
variable b. 

- En la linea 30, se fija si el dato es ma- 
yor o igual que noventa y siete. Si lo es, 
en el cuadradito de la pantalla corres- 
pondiente hay una letra minuscula, por- 
que los codigos de las minusculas van 
desde 97 hasta 1 22 y los de las mayus- 
culas desde 65 hasta 90. Si la letra es 
minuscula la reemplaza por la mayus- 
cula correspondiente, cuyo codigo es 
el de la minuscula menos 32. 

a=codigo 97 d=codigo 100 
-32 -32 

A=codigo 65 D=codigo 68 
Borremos pues, el programa anterior y 
hagamos correr este: 

10 FOR A=0 TO 255 
20 VPOKE A* *2,A 
30 NEXT 

Los caracteres que aparecieron en la 
pantalla son todos los que podemos 
mostrar por este metodo, a menos que 
creemos caracteres nuevos. iComo 
hacerlo? 

Observemos que para la imagen de la 
pantalla, hasta ahora solo usamos 960 



CARACTERES 

INVERTIDOS 


Con el programita de la figura I , se in- 
vierten los caracteres. Tenemos la op- 
cion de invertir solo algunos caracteres 
o bien todos. Al principio del programa, 
se preguntara que caracteres queremos 
invertir, pero si escribimos la palabra 
“todos” (no interesa si esta en mayus- 
culas o minusculas), invertira caracter a 
caracter todo el set. Esto tardara un po- 
co (o mejor dicho bastante), pero vale 
la pena esperar. 

El programa busca en memoria la defi- 
nicion del caracter a invertir. Lee los 
ochc bytes que lo definen y luego lee 
bit por bit de cada byte. Al realizar esta 
ultima lectura, cambia los unos por ce- 
ros. Es decir, si el byte a tratar es 
1 00 1 0 1 I I , entonces al invertirlo que- 
dara: 01 1 0 1 000. Y el resultado de 
hacer el cambio de los ocho bytes de 
cada caracter producira el efecto de 
invertirlos. 


posiciones de memoria de las 16384 
quedijimosquetenfa la VRAM. El con- 
junto de estas 960 posiciones se llama 
"Tabla de imagen de pantalla". Pero 
ademas hay otra tabla que se llama 
"Tabla de diseno de caracteres", con 
la cual podemos redefinir, es decir, dar- 
le una forma distinta, a cualquiera de 
los caracteres de la maquina. La tabla 
de diseno de caracteres se encuentra 
desde la posicion de mempria 2048. 
Ocho posiciones de memoria, es decir, 
ocho numeritos entre 0 y 255 nos di- 
cen como esta formado el caracter. 

Igual que con los sprites, por cada lf- 
nea tenemos un numero entre 0 y 255 
(que es el equivalente al numero bina- 
rio que se hana si cada cuadradito en 
bianco lo reemplazaramos por un 0 y 
cada cuadradito en negro por un uno). 

Redefinamos la "A" para tener el signo 
del austral, ^figura l) 

NOTA: Cuando estamos en "Screen 
0" no podemos usar las dos ultimas 
columnas de la parrilla. 

Ya tenemos los datos. ^En que posi- 
ciones de memoria ponerlos? Para sa- 
ber la posicion inicial de la VRAM a 
partir de la cual entramos los ocho nu- 
meros tenemos que aplicar la siguien- 
te formula: 



LIMPIEZA MISTERIOSA 

Cada v.ez que hacemos un listado, las li- 
neas del mismo suelen mezclarse con 
mensajes que ya existian en pantalla. 
Esto se puede salvar de dos formas dis- 
tintas: definiendo alguna tecla de funcion 
para que limpie la pantalla y luego liste, 
o bien haciendo correr el programita de 
la figura 2. 

Este utilitario primero limpiara la pan- 
talla y luego listara las lineas del progra- 
ma en memoria. 

En realidad aqui se usan las dos rutinas 
Assembler de LIST y CLS. Copiemos el 
programa, hagamoslo correr y borre- 


2048+(codigo del caracter*8) 

Por lo tanto, el listado del programa 
es este: 

10 A=2048+ASC("A")*8 
20 FOR A=A TO A+7 
30 READ B 
40 VPOKE A,B 
50 NEXT 

60 DATA 48,72,72,252,72,252,72,72 
Una vez que lo ejecutemos, vemos la 
nueva forma de las "A" de la pantalla. 
Finalmente, el siguiente programa nos 
permite ver "en gigante" como estan 
hechos los caracteres. 

10 FOR A=2048 TO 4096 
20 B$=BIN$ (VPEEK(A)) 

30 B=LEN(B$) 

40 B$=STRING$ (8-B,"0")+B$ 

50 FOR C=1 TO 8 

60 IF MID$ (B$,C,1)="1" THEN PRIN 
T 

CHR$(219);ELSE PRINT""; 

70 NEXT 
80 PRINT 
90 NEXT 

Quedan aun muchas cosas para ver en 
Screen 0 y en otras pantallas. Gracias 
a los VPEEKs y VPOKEs podremos 
dibujar, disenar y mover sprites, y mu- 
chas otras cosas. 

Gustavo Faigenbaum 


mos linea por linea sin entrar NEW. Ca- 
da vez que querramos listar, se 
efectuaran las dos operaciones que men- 
cionamos antes. 

VELOC1PAP + AHORRO 
PE MEMORIA 


Para que nuestros programas se realizen 
con mayor rapidez, es conveniente te- 
ner en cuenta algunos secretos: 

* eliminemos las instrucciones REM 
siempre y cuando ninguna instruccion 
GOTO salta a dicho REM. Y si reem- 
plazamos esta instruccion por apostro- 
fe “ ’ ahorraremos memoria. 

* comprimir las instrucciones (lineas con 
multisentencias) todo lo que sea posible. 
De esta forma el sistema ahorra tiem- 
po porque no hace falta saltar a distin- 
tas lineas para ejecutar la siguiente 
instruccion. 

* para pintar rectangulos, es mas rapi- 
do hacerlo con LINE..., BF que con 
PAINT. 

* tratar de evitar usar matrices cuando 
sea posible porque estas consumen mas 
tiempo que las variables. 

* colocar las rutinas que llamamos va- 
rias veces al principio del programa prin- 
cipal. Asi tambien se ahorra tiempo. 





ste programa lo enviaron tres 
lectores de nuestra revista. Los 
autores fueron: Diego Ruiz, 
Axel Mori y su hermano Martin. 
Nuestros amigos han realizado un muy 
buen programa aplicando ventajas de las 
MSX como SCREEN 3, PLAY y LINE. 
Este entretenimiento es para dos ju- 
gadores. 

Agradecemos a estos tres lectores por 
habernos enviado este listado porque de- 
muestra que ellos tambien quieren com- 
parer los programas que escriben. 


VARIABLES 

IMPORTANTES 


T(3,3)= coordenadas del tablero. 
X(9)= jugadas del participante A. 

Y(9) = jugadas del B. 

XX(9)= coordenadas impresion de A. 
YY(9)= coordenadas de impresion de B. 
DD= jugadas generales. 

W= ficha a jugar. 

A$(l) y A$(2)= nombre de los ju- 
gadores. 

A$ = mensajes. 


10 CLSSKEYOFF 
20 * 


30 LOCATE 15, 0: PRINT" T A-TE-T I": LO 
CA'iElO? 1 : PRINT"Hecho por <AXDI ? ": 
LOCATE 1 0 , 3 : PR I NT " d a r a K-64 " : LOCAT 
E 1 0 , 5 : PR I NT “ COP YR I GHT ’86" 

40 FORI =1T03000: NEXT 
50 C0L0R15? 1,13: SCREEN3 = OPEN "GRP 
: " AS1 

60 D=2:W=1 

70 DIMX (9) ?Y (9) ?T (3?3) 

80 A*= " 05BGB06CEG05BGB06CE605BGB 

90 B*= " 04BGB05CEG04BGB05CEG04BGB 

1 00 C*= " 03BGB04CEG03BGB04CEG03BG 
B" 

110 F0RI=1T09: READ X ( I > , Y ( I ) , XX ( 

I ) ? YY ( I ) : NEXT I 

120 PLAY"T200L2XA*5 " , "T200L2XC*5 

130 PRESET (5? 70) :PRINT#1? "TA°TE° 
TI" 

140 F0RIX=2T015: LINE <0? 40) — (256? 
40) ? 1%: LINE <0? 150)-(256, 150) ? IX=P 
AINT (0? 0) ? IX: PAINT (0? 190) ? 1%: NEXT 
150 GOSUB 700 
160 PLAY"T200L24XB$; " 

170 SCREEN3 

180 L I NE ( 1 00 ? 20 ) — ( 1 00 ? 1 40 ) ? 1 3 
190 L I NE ( 1 32 ? 20 ) — < 1 32 ? 1 40 ) ? 1 3 
200 L I NE < 75 ? 52 ) — ( 1 6 1 ? 52 ) ? 1 3 
210 PRESET (78, 20) :PRINT#1? "1" 

220 PRESET (110, 20) : PR I NT# 1 , "2" 

230 PRESET ( 140? 20) : PRINT#1 , "3" 

240 L I NE ( 75 , 1 00 ) — ( 1 6 1 , 1 00 ) , 1 3 
250 PRESET (78? 64) : PR I NT# 1 , "4" 


260 PRESET (110,64) :PRINT#1, "5" 
270 PRESET ( 1 40 , 64 ) : PR I NT # 1 , " 6 " 
280 PRESET (140, 112) : PRINT#1 , "9" 
290 PRESET (110, 112) : PRINT#1 , "8" 
300 PRESET ( 78 , 112) : F‘R I NT # 1 , “7" 
310 A$=INKEY$: IFA$=" "THEN310 
320 IFA$< " 1 "0RA$>"9"THEN310 ELSE 
A=VAL(A*) 

330 I FT ( XX (A) , YY ( A) ) < >0THENBEEP: 
GOT 03 1 0 

340 DD=DB+ 1 : I FDD=9THEN8 1 0 
350 S=XX (A) : SS=YY (A) 

360 IFW=1THENT (XX(A) ,YY(A) )=1 
370 I FW=2THENT ( X X ( A ) , YY ( A ) > =2 
380 I FT (1,1) =1 ANDT (1,2) =1ANDT ( 1 , 
3) =1THEN660 

390 I FT (1,1) =2ANDT (1,2) =2ANDT ( 1 , 
3 ) =2THEN660 

400 I FT (1,1) =1 ANDT (2,1) =1 ANDT (3, 

1 ) =1THEN660 

410 I FT ( 1 , 1 ) =2ANDT (2,1) =2ANDT (3, 

1 ) =2THEN660 

420 I FT ( 1 , 1 ) = 1 ANDT ( 2 , 2 ) = 1 ANDT ( 3 , 
3) =1THEN660 

430 I FT (1,1) =2ANDT (2, 2) =2ANDT (3, 
3 ) =2THEN660 

440 I FT (1,2) =1 ANDT (2,2) =1 ANDT (3, 

2) =1THEN660 

450 I FT (1,2) =2ANDT (2, 2) =2ANDT (3, 

2) =2THEN660 

460 I FT (1,3) =1 ANDT (2,3) =1 ANDT (3, 

3) =1THEN660 

470 I FT ( 1 ,3) =2ANDT (2, 3) =2ANBT (3, 

3) =2THEN660 

480 LINE(X(A) ,Y(A) ) - ( X (A) +20, Y ( A 
) +28) , 1?BF 

490 I FT (1,3) =1ANDT (2,2) =1 ANDT (3, 
1 ) =1THEN660 

500 IFT ( 1 , 3) =2ANDT (2, 2) =2ANDT (3, 

1 ) =2THEN660 

510 PRESET (X (A) , Y (A) ) 

520 I FW= 1 THENPR I NT # 1 , "X" 

530 I FW=2THENPR I NT# 1 ? " 0 " 


550 GOTO 310 

560 GOTO 560 

570 DATA 78,20,1,1 

580 DATA 110,20,1,2 

590 DATA 140,20,1,3 

600 DATA 78,64,2,1 

610 DATA 110,64,2,2 

620 DATA 140,64,2,3 

630 DATA 78,112,3,1 

640 DATA 110,112,3,2 

650 DATA 140,112,3,3 

660 CLS : SCREENO 

670 PRINT "Te felicito " ;A$(W) 

680 PRINT "hiciste TA-TE-TI." 

690 GOTO 840 
700 SCREENO 

710 A$="B I enven i do al TA-TE-TI": 
X=0: Y=0: G0SUB800 

720 A$=" Inst rucc i ones ... X=0= Y= 
1 : G0SUB800 

730 LQCATE0,3: INPUT"Nombre del j 
ugador A:" ; A$ < 1 > 

740 LQCATEO, 4: INPUT "Nombre del j 
ugador B:";A$(2) 

750 A$="Cada posicidn tiene un n 

•imer o " : X=0: Y=6: G0SUB800 

760 A$="ptilselo para colocar su 

ficha.": X=0: Y=7: G0SUB800 

770 A$= " -PRES I ONE UNA TECLA-"=X= 

0 s Y= 1 5 : G0SUB800 

780 I F I NKEY$= " " THEN780 

790 RETURN 

800 F0RP=1TQLEN ( A$) : LOCATEX+P, Y= 
PR I NTM I D$ ( A$ , P , 1 ) ; : NEXTP: RETURN 
810 CLS: SCREENO 

820 PRINT"Lo si en to, empataron . . . 
830 GOTO 840 

840 PRINT: PRINT: INPUT" Jueqan de 
nuevo: " ; 

850 I FW*= "si" THENRUN 
860 I F W$= "no" THENEND 
870 G0T0840 
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EL SISTEMA 
OPERATIVO DOS 

El dos no es cualquier cosa, sus 
comandos no son precisamente 
pocos. Comenzaremos viendo al- 
gunas funciones complementa- 
rias a los comandos disponibles 
de este sistema operativo , desde 
BASIC. 



CVI, CVS, CVD: Estas tres instruc- 
ciones cumplen la funcion de convertir 
valores alfanumericos en numericos, que 
se encuentren archivados de forma tal 
que puedan ser leidos en forma aleato- 


ria por las instrucciones asociadas a es- 
te modo. 

CVI significa: convertir en valor ente- 
ro. Por este motivo solo como argu- 


mento soporta dos bytes cualesquiera, 
del archivo que se este tratando. 

CVS significa: convertir en valor de sim- 
ple presicion. Asi es como soporta 
4 bytes como argumento, que deben, 
sin lugar a dudas, ser leidos del archivo 
de acceso aleatorio que se esta uti- 
lizando. 

CVD significa: convertir a valor de do- 
ble presicion. Entonces, por las carac- 
teristicas de este tipo de numeros, 
soporta como argumento a ocho bytes. 
En todos los casos estos bytes figuran 
bajo el nombre de alguna variable alfa- 
numerica. 

Veamos un ejemplo. Supongamos que 
dentro de un programa, en el que se 
abrio un archivo de acceso aleatorio 
(que por supuesto, figuraba en el dis- 
quette), figuran las siguientes lineas: 

SO FIELD^f I, 2 AS AS, 4 AS B$, 8 AS CS 

60 GET 4^1 

70 ENTERO = CVI (A$) 

80 SIMPLE = CVS (B$) 

90 DOBLE = CVD (CS) 

Como sabemos (quiero creer que es asi) 
la instruccion FIELD ha habilitado al buf- 
fer para aceptar tres campos llamados 
A$, BS y CS cuyas longitudes son 2, 4 
y 8 respectivamente. 
jOh casualidad!, corresponden a las lon- 
gitudes de los strings o cadenas alfanu- 
mericas aceptables por las tres funciones 
que vimos antes. Seguramente algo 
nos trafemos debajo del poncho. 

Y asi es, nuestra sagaz mente ha prepa- 
rado de esta forma al buffer para asig- 
nar a cada valor leido un tipo de variable 
distinto y de caracteristicas numericas. 
El resto del programa es daro y lo com- 
prendemos perfectamente si es que he- 
mos leido los numeros anteriores. 

DSKF: esta funcion es de utilizacion 
simple, y sirve para averiguar la canti- 
dad de bytes que quedan libres en un de- 
terminado disquette, en unidades de 
kilo. 

El argumento que necesita para alimen- 
tarse es el numero correspondiente al 
drive en que se encuentra dicho dis- 
quette. 

Estos numeros identifican a los drives o 
unidades de disco de la siguiente forma: 

0 corresponde al ultimo drive con que 
se trabajo, sin importar cual de ellos era. 

1 corresponde al identificador del drive 

A. 

2 corresponde al identificador del drive 

B. 

Por lo visto, un ejemplo valido seria: 
PRINT DSKF(2) que imprimira en pan- 
talla la cantidad de kbytes libres en el dis- 
quette del drive B. 




DSKIS: como dijimos en el numero I 
de esta publicacion, al referirnos a la ins- 
truccion DSKO, un disco es formatea- 
do para soportar 360 kbytes de 
informacion repartidos en sectores de 
512 bytes. 

En cierta forma esta funcion recorre el 
camino inverso al de la funcion DSKO. 
Pues, dado un nombre de drive y un nu- 
mero de sector valido, esta transfiere 
dicho sector al bloque de memoria al 
cual apuntan el par de bytes F35IH y 
F352H. 

Supongamos que queremos ver el con- 
tenido del sector 5 de un disco que con- 
vene cierta informacion y se aloja en el 
drive A. 

En primer lugar deberemos elegir en que 
lugar de la memoria queremos ubicar 
esos 5 1 2 bytes de informacion, asuma- 
mos que este es el valor 40000 decimal. 
Entonces haremos que F35I y F352 
“apunten” a esa direccion de la memo- 
ria por medio de los siguientes coman- 
dos: POKE &HOF35I.64 y POKE 
&HOF352, 1 56. 

Asi, si efectuamos la siguiente verifica- 
cion obtendremos como respuesta el 
valor 40000: 

PRINT PEEK (&HF35I) + 256*PEEK 
(&HF352). 

Ahora supodemos efectuar la instruc- 
cion DSKIS ( 1 ,5) y el bloque correspon- 
diente al sector 5 del drive I (A) habra 
pasado a la memoria a partir de la posi- 
cion 40000. 

Para verificar este ultimo proceso po- 
driamos efectuar el siguiente progra- 
musculo: 

10 FOR F = 40000 TO 40511: 

PRINT PEEK (F);: NEXT 
Para ver algo mas interesante aun, po- 
driamos cambiar la instruccion PEEK del 
programa anterior por CHRS 
(PEEK(F)); y asi venamos la representa- 
cion ASCII de los valores que se encon- 
traban en ese sector. 

Obviamente tendremos algunos proble- 
mas cuando este comando interprete a 
los valores que corresponden a carac- 
teres especiales como Line Feed, Return 
o Home. Por este motivo sera mucho 
mas util separar el programa en diferen- 
tes lineas con el fin de insertar una que 
contenga una instruccion IF que haga 
traducir solamente a los caracteres que 
corresponden a simbolos legibles. 

Asi veremos que en esa pantalla sucia 
aparecen algunos nombres que solo no- 
sotros reconoceremos. 

Este truquito fue de regalo, todo por 
el mismo precio. 

EOF: significa fin de un archivo (End Of 
File). Y asi es nomas, nos indicara si un 


archivo de texto secuencial se ha ter- 
minado. 

Por supuesto que para indicar el fin del 
archivo deberemos estar leyendolo. 
Asi devolvera el valor - I si es que es- 
to ocurre. 

Veamos un ejemplo: 

10 OPEN “ARIEL.PAT” FOR INPUT AS^I 
20 IF EOF(I) THEN GOTO 1000 
30 : 

La linea 20 pasara el control a la linea 
1 000 cuando el archivo se haya termi- 
nado. Por supuesto, debemos pasar el 
control a la linea donde se encuentra es- 
ta instruccion, antes de hacer cada lec- 
tura de un registro. 

El numero que figura entre parentesis 
luego de EOF, es el que se correspon- 
de con el numero de archivo que se ha 
abierto y se quiere comprobar. 

INPUTS: se lo utiliza tanto para leer 
un dato determinado desde el teclado 
como desde un archivo secuencial. 

Su sorprendente caracteristica (**§:(?) 
es la de leer todos los caracteres que 
se le presenten, salvo el Control-STOP. 
Para ver las diferencias del INPUT so- 
lo, veamos la primer entrega de esta pu- 
blicacion. Su utilizacion y sintaxis es 
identica a esta, se escribe INPUTS $n, 
donde n es el numero de archivo se- 
cuencial que se ha abierto para lectura 
de datos. 

Sin el simbolo de numeral, asumira que 
nos estamos refiriendo a la entrada de 
datos desde el teclado. Por supuesto, 
siempre debe ir acompahado de una va- 
riable de algun tipo conocido. 

LOC: esta funcion se usa tanto en el 
tratamiento de archivos abiertos para 
tratamiento aleatorio como para se- 
cuencial. 

Nos indica el numero de registro que es- 
ta listo para ser leido o escrito por me- 
dio de las instrucciones destinadas a tal 
fin. 

Debe seguirse del numero de archivo 
encerrado por parentesis, al que se ha- 
ce referencia. • 

LOF: retorna el tamano en bytes, del 
archivo al que hace referencia por me- 
dio del numero encerrado entre paren- 
tesis, que lo sucede. 

MKI$, MKSS y MKDS: se las utili- 
za para convertir valores numericos en- 
teros, de simple presicion y de doble 
precision respectivamente a valores al- 
fanumericos. 

Se las suele usar en conjuncion con las 
instrucciones LSET y RSET. Algo asi: 
LSET D$ = MKSS (valor o variable nu- 
merica) donde D$ corresponde al nom- 
bre de un camDO definido en el buffer 


por medio de FIELD (por ejemplo) pa- 
ra un fin determinado. 

Estas son las ultimas funciones que ve- 
remos y que pueden accederse desde 
Basic. 

Lo que sigue es una lista descriptiva de 
una serie de comandos disponibles des- 
de el mismisimo DOS. 

Recordemos que la instruccion CALL 
SYSTEM era la Have para ingresar al 
mundo de fantasia de los archivos. 

En este celeste e infinito espacio de co- 
mandos increibles, podremos comandar 
esta poderosa nave visitando, observan- 
do, sacando informacion y modificando 
cada uno de los archivos que pueblan es- 
ta informatica galaxia. 

Una vez que hayamos entrado en este 
universo, ya desde BASIC o por haber 
inicializado el sistema, nuestro indicador 
de drive activo estara permanentemen- 
te cumpliendo su funcion. 

Asi veremos todo el tiempo alguno de 
los siguientes indicadores: 

A > o B >. 

Entonces si nos proponemos trabajar 
con el disco que se encuentra en el dri- 
ve B, y nuestro indicador es ‘A>’ de- 
beremos efectuar la siguiente 
operacion: A^>B:, donde A^>es el in- 
dicador, asi que solamente deberemos 
digitar B: y Return. 

Comencemos viendo algunos co- 
mandos. 

BASIC: entrando solamente esta pa- 
labrita, luego de la ‘A^>’ pasaremos al 
conocido universo del interprete Basic 
en el cual ya estamos acostumbrados a 
viajar. 

COPY: esta es la instruccion mas dis- 
cutida de este sistema, pues se usa para 
lo que ya estamos intuyendo: copiar 
uno, alguno o simplemente todos los ar- 
chivos, incluyendo los programas, tan- 
to en Basic como en Assembler, que se 
encuentren en un disco en otro sopor- 
te magnetico de las mismas caracteris- 
ticas, entre otras cosas. 

En realidad se lo utiliza para copiar al- 
gun archivo de cualquiera de los perife- 
ricos, incluyendo el teclado, a otro 
periferico, incluyendo la impresora y el 
monitor. 

Para comenzar a estimular nuestro ena- 
no pirata probemos la siguiente forma 
de esta potente instruccion: 

COPY B: Una vez que hayamos 
descubierto su uso y aplicacion y este- 
mos dispuestos a conocer las otras for- 
mas y posibilidades de esta instruccion, 
y del DOS,consigamonos un conforta- 
ble almohadon para sentarnos frente al 
kiosco de revistas mas cercano, porque 
como dice un osado y prestigioso pe- 

rioHkta nor ahora lo rlr»iamoc ahi 


Concursctde I I 

PROGRAMAS 1 ~ 1 1 


auspiciado por TELEM ATICA S.A. que proveera los siguientes Premios: 



I 111 noriforinn ( a eleccion entre un monitor, 

Ull pul 1 1 Cl lull una diskettera y una impresora). 


Una Beca 


para trabajaren el 
Departamento de Investigacion 
y Desarrollo de Telematica S.A. 


S E G U W P O P R E M I O 


I In npriforirn ( a eleccion entre un monitor, 
Ull pCI llul lull una diskettera y una impresora). 


En caso de que el ganador no pueda utilizar la beca sera ofrecida a quien obtenga el segundo premio, y si este 
tampoco pudiera aprovecharla se otorgara a alguno de los participantes del certamen que se hubiera destacado. 

PQPPPIAI Entre ,os P ro 9 ramas recibidos, algunos de ellos podran ser editados por 
COl IZOIML Prosoft, reconociendose los derechos de autor. 



Temas: f TRIJCO. 


Premiaremos al programador que logre la mejor version de este 
tradicional juego de salon. 


nc IMTCI IRFMPI A Los J ue 9°s que nos inspiren podran ser "El Es- 
Ula 111 I LLIU LIlU I rl.tanciero'o temas originates que sigan la h'nea 


EDUC ATIVOS 



lema: 


LIBRE. 


U T 1 

1 1 

L 1 

1 T A 

R 1 

1 0 



I NTEU GE N Cl A ARTI FI Cl ALT ,ra,a de ,ograr un programa 


loma. Ill I LLIULlIUin nillll IUIFlL«querealmente nos haga discu- 

tir sobre el h'mite entre la simuiacion y la inteligencia de la computadora. 

Obviamente la unica forma de lograr esto sera siguiendo las reglas propuestas de la Inteligencia 
artificial. Por esto se consideraran para premiar esta categorfa, ademds de las reglas detalladas 
mas abajo, la capacidad de auto-aprendizaje del programa, el nivel de inferencia del mismo, la ca- 
pacidad y modo de almacenamiento de su base de datos, y principalmente su analizador sintactico 
dadp que hasta el momento no se ha logrado uno que de suficiente credibilidad de que estamos 
frente a un ser racional que entiende nuestro idioma y no frente a una maquina a la que debemos 
hablarle con verbos en infinitivo al mejor estilo Tarzan (sin menospreciar a este ultimo). 


PROFESION AL O G ESTION : 


r * I BDQC Dentro de este tema podran figurar programas de las mas diversas 

ema: LIDllEa aplicaciones. 


BASES: No solo sera indispensable que el programa enviado funcione correctamente sino que ac^mas 
debe cumplir con ciertas reglas. 

• Programacion estructurada en b/oques facifmente diferenciables. 

• Facil seguimiento del mismo y detalle de este como parte de su documentac/on. (Diagrama de 
bloques con los numeros de Imea que los identifiquen). 

• Aclaracion y dara exp/icacion de los a/goritmos uti/izados r deben figurar como parte de la documentacion. 

• Las variables y/o direcciones de memoria utUizados tambien se deben indufr en esta documentacion. 

• Listado de nemonicos assembler y la loca/izacion en memoria si es que se utiliza este tipo de lenguaje. 

• Ca/idad y originalidad de graficos, sonidos y pantallas de menu. 

• E! programa debe ajustarse a alguno de los temas propuestos mas arriba. Esto es ELIMINATORIO. 


Los trabajos deberan enviarse antes del 30 de noviembre proximo (cierre del certamen) a: Parana 120. piso 5°, 
(1017) Capital Federal. 











A LA COMPUTADORA PERSONAL 

Talent ivm 

NADA LE ES IMPOSIBLE ... 



... y para que todo le sea posible a Ud. en; 

0 provision del hardware 
tanto de la con sola 
como todos los 
perifericos y accesorios. 

° la instalacion y la 
puesta en marcha. 

Se Han asociado para brindarle una red 
de solidaridad y atencion , los siguientes 
ooneesionarios amigos: 


0 soft utilitario 
0 soft para la educacion 
0 soft comercial 


AVELLANEDA 

ARGOS S.A. 

Avila. Mitre 1755 (CP 1870) Tel. 203-5227 

CAPITAL 

COMPUTRON 1C S.A. 

Viamonte 2096 (CP 1056) Tel. 46-6185 

SASTELAR 

HOT BIT COMPUTACION 

Carlos Casares 997 (CP 1712) Tel. 629-2247 

SAN ISIDRO 

F. CORATELLA S.R.L. 

Cosmo Beccar 249 (CP 1642) Te. 743-0734 




nm 


h 


MOVIMIENTO 
/ ARMONICO 


Clase: Utilitario 


Por el trtulo, los que tienen 
el mismo vicio que Einstein, 
se habran dado cuenta de 
que se trata. Por otra parte 
el programa ofrece una Cla- 
ra explicacion del tema. 

Nos queda por decir que es 
una lograda aplicacion del 
movimiento armonico pro- 
ducido por masas en sus- 
pension . De no conocer el 


tema, por la explicacion que 
el mismo programa da, que- 
daremos atrapados por la 
interesante demostracion 
que ofrece. 

Tambien sera de utilidad pa- 
los alumnos de escuelas 
tecnicas especializadas en 
electronica, y que esten 
viendo el desarrollo de las 
figuras del benemerito se- 
nor Lissajous. 



Estructura 
del programa 

100*285 Presentacion y 
explicacion 
290-440 Estructura 
principal 

460-580 Subrutina de 
movimiento 


m m 

110 SCREEN 6 1 


ON I CO** 


115 COLOR 1,14 
:l 20 KEY OFF 
125 LOCATE 10,0 

130 PRINT "MOVIMIENTO ARMONICO" : FOR F=1 TO 1000: NEXT 
135 LOCATE 10,0 
1 40 PR I NT STR I N6$ (17, 223 ) s 

145 PRINT" MIRAR UN LIBRO DE FIGURAS LISSAJOUS, PUEDE TRADUCIRCE A OBSERVAR DIBUJ 
OS RAROS PERO ATRAYENTES . " 

147 PRINT 

150 PRINT" ESTOS DIBUJOS SON SIMPLES MOVIMIEN- TOS ARMONICOS I NDEF'END I ENTES , QUE 
SE MUEVEM ATRAVEZ DE DOS ABSISAS." 

155 PRINT 

l&O PRINT" ESTO PUEDE PARECER COMPLICADO, PERO LA RAZQN POR LA QUE SE PRODUCEN E 
S SIMPLE, PERO SU JET A A INF I NIT AS VAR I A— C I ONES DE SUS PARAME T RUS . " 

165 GOSUB 130 

170_F'RINT " I MAG I NESE DOS _ PENDULOS : UNO MOVIEN- DOSE EN DIRECTION NORTE-SUR, EL 
U i R U El N D I R EC U I U N E y T E. — U E y T E . 1 ! 

173 PRINT 

175 PRINT" COMO ELLOS DSC I LAN, EL PUNTO MAS D I ST ANTE DEL PENDULO N.S Y EL PUN 

TO DEL QUE SE MUEVE EN DIRECCIOM E . 0 , PUEDEN UNIRSE FORMAMDO UN DIBUJOa K-ELh 

FIGURA DE LISSAJOUS. hM-hh ,,s GOSUB 1 80 a 60T02 1 5 * ‘ 

ISO LOCATE 9, 19 1,1,1 

1 85 PR I NT STR I NO* ( 1 9 , 223 ) 

190 LOCATE 7,20 

195 PRINT "PRES I ONE L.A TACLA DE ESPACIO PARA CONTINUAR" 

H.OQ IF t NKE Y *< > " " THEN 20-0 
205 IF INKEY$<>" ■ " THEN 205 
210 CLSs RETURN 

215 PRINT "EL DIBUJO PRODUCIDO DEPENDE BE a “ 

220 PRINT n L - EL PERIODS BE RA20N O PROPORCION" .♦ 

223 PRINT 

225 PRINT " LA RELACION DEL TIEMPO QUE TARDA CADA PENDULO EN COMPLETAR UNA 
DSC I LAC I UN" 

230 PR I NT a PR I NT : PR I NT a PR I NT 

235 PRINT " 2 „ - EL. ESCALON DE DISCREPANCY A" : PRINT: PRINT 

240 PRINT" POCICION RELATIVA DE LAS LENTEJAS DELOS PENDULOS CUANDO LA OSCILACION 
COM I EN 2 A" 

245 GOSUB ISO 

250 PRINT " EL ESCALON DE DISCREPANCY A GENERAL- MENTE ESTA TOMADA EN GRADOS, POR 
LO TANTO UN ESCALON DE DISCREPANCIA DE 90 SIGN IF I CA QUE AL CGMIENZO" 

25 b 

GRADOS SIGNIFICA QUE UN PENDULO 
260 PR I NT a PR I NT 

265 PRINT " ESTA SIMULACION COMPUTAR I Z ADA MOSTRARA GRAFICAMENTE EL CAM I NO 

PERIOD I CO DE RAZON Y ESCALON DE DISCREPANCIA COMB I N ADAS PARA DETER- M 

INAR EL TRAZADO DE LA FIGURA DE LISSAJOUS . " 

270 L. nr: ATE 2? 20 

275 PRINT" PRES I ONE LA BARRA DE ESPACIO PARA CORRER LA SIMULACION" 

2 SO IF 1NKEY*< > " " THEN 2S0 
285 IF IN KEY *< >“ " THEN 2S5 
290 COLOR 1,14,4 
295 SCREEN 2 

300 OPEN "GRIPS » FOR OUTPUT AS#1 
305 

3 1 0 SPR I TE* < 1 ) —STR I NG* ( 3 , 1 6 ) +CHR* ( 238 ) +STR I NG* (3,1 6 ) 

3 1 5 SPR I TE* < 2 ) =STR I MG* ( 7 , 1 28 ) 

320 SPR I TE* < 3 ) -STR I NG* ( 2 , 252 > 


ESTABA 1/2 DE OSCILACION ARRIBA „ 




PI =3. 14159265# 

S=P I / 30 

C ( i ) =12= C (2) =6: C (3) =13: C (4) 
FOR W=0 TO 16 


330 
335 
340 
345 
350 
355 

3 AO =■ 

365 ? 

370 READ P ? Q ? I 
375 GOSUB 445 
380 NEXT W 
385 ? 

390 ? 

395 
400 
405 
410 
415 
420 
425 
430 
435 
440 
445 
450 
455 
460 
465 
470 
475 
480 
4P5 ? 

FOR T = 1 2 1 TO 159 
V POKE T - O 
VPOKE T+ 104.-0 
NEXT T 

PSET ( 18? 1 ) , 1 4 

PR I NT # 1 , n RA ZON= n ? R I GHT$ ( STR* ( P ) 
PSET (125 ? 1 > 

PR 1 N I # 1 - " Li 1 SCREPANL: 1 Pi= " ; 30* I 


T=RND (—TIME) 

RESTORE 650 
W=RND ( 1 ) *4 
POT T =0 TO W 
READ Q • 

NEXT T 

P= I NT ( RND ( 1 ) * £ Q— 1 ) ) +1 
I = ( I NT < RND ( 1 ) * i 3 ) ) /2 
GOSUB 445 
GOTO 400 


IF Q< 0 THEN Q==— Qs FOR T=0’ TO 2000: NEXT: CLS 
F=P/Q 

L — p I :-f - 1 -.1 

C=C (U> : U= ( 

R=P 1*1/ 6 


J+DMOD 5 


500 

505 

510 

515 

520 

52b 


, 2) ? " : " ; RIGHTS (SIRS (Q) , (L.EN (STRS (Q) ) -1 ) ) 


530 

535 FOR A=0 TO L STEP S 
540 X=12S+ 1 10*CGS ( A ) 

545 Y =99+79:+: COS ( ( a*F ) +R ) 


550 

IF A 

THEN LINE-(X, Y) ,C 

555 

PUT S 

PRITEO, (X-3, Y— 3) :• 1 

560 

PUT S 

iF'RITE 1 , ( X , 1 83 ) , 1 , 

565 

PUT S 

PR I TE 2, (246, Y) , 1 , 

570 

PSET 

( X , Y ) , C 

575 

NEXT 

A 

580 

RETURN 

kt cr 

? 


590 

? 


595' 

? 


600 

DATA 

1.- 1 ? 0 ? 1? 1? 1 

605 

DATA 

1 ? 1 ? 2* - 1 :• 1 - 5 ? 1 :» 1 ? 6 

610 

DATA 

1 ? il ? U ? 1.-2? 1 

615 

DATA 

1 - 2 :* 1 - 5 - 1 :• 2 :» 2 :* 1 ? 2 :• 

620 

DATA 

1 ? 1 - O :• J. :• - O :« 1 :» 5 - O 

625 

DATA 

1 ? 5 ? O ? 2 ? 5 ? O 

67.0 

DATA 

? 5* ? U ? 4 - O :• 0 

635 



640 

? 


645 



650 

DATA 

— c=; _.*7 
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LENCVAJE 


MSX-LOGO 

Se trata del programa que nos 
permitira trabajar enLOGO, lo 
acompana un manual por demas 
explicativo, del cual ofrecemos un 
anticipo, escrito por Hilario 
Fernandez Long y Horacio Reggini. 




sta obra introduce al lector a 
una nueva implementacion de 
Logo. 

MSX-Logo significa otro hito en el ca- 
mino del desarrollo de versiones de Lo- 
go cada vez mas poderosas. Incluye la 
posibilidad de dibujar en la totalidad de 
la pantalla, pintar o sombrear recintos, 
utilizar distintos colores simultaneamen- 


te, el control de tortugas moviles, la ma- 
nipulacion de palabras y listas, el empleo 
de listas de propiedades y la generacion 
de musica. 

Pueden activarse treinta tortugas simul- 
taneamente (antes llamadas “actores” 
en otras versiones de Logo), con distin- 
tas figuras y colores y cada una de ellas 
puede dejar rastro al moverse. Existen 
ademas las ordenes cuando y al contac- 
to, que desencadenan una serie de ac- 
ciones si se produce un suceso deter- 
minado. Es como si un diablillo o “de- 
monio” estuviera al acecho mientras se 
ejecuta un procedimiento cualquiera; 
cuando ve que se produce el hecho es- 
pecificado, hace que se cumplan las or- 
denes consignadas. 

La sigla MSX designa un conjunto de 
normas que hacen posible que un pro- 
grama pueda operar en distintos mode- 
los de computadoras, siempre que hayan 
adoptado las normas MSX citadas. 


POR QUE LOGO 


El aprendizaje del lenguaje Logo es una 
de las puertas mas interesantes para ac- 
ceder al mundo de la computacion. Su 
sencillez, su potencia y la posibilidad de 
emplearlo en todos los campos de la ac- 
tividad humana pueden llegar a conver- 
tirlo en el lenguaje de programacion mas 
difundido y aceptado en los proximos 
anos. 

La potencia de logo se debe a tres ra- 
zones fundamentals. En primer lugar, 
sus principios son faciies de aprender y 



los que se inician logran de inmediato re- 
sultados interesantes, sin necesidad de 
preparacion esmerada. Por ello, inclu- 
so los ninos pueden usarlo y, de hecho, 
millares de ellos lo estan haciendo ac- 
tualmente. Es por esta circunstancia que 
las computadoras, con Logo, se convier- 
ten en herramientas utiles para el pro- 
ceso educativo. Sin embargo, Logo no 
es un lenguaje solo para ninos. Esta ima- 
gen, que existe en algunos circulos, se 
debe al hecho de que los primeros ejem- 
plos de su empleo ilustran procedimien- 
tos elementales para ninos y/o 
principiantes adultos carentes de cono- 
cimientos previos de computacion. Uti- 
lizarlo luego en aplicaciones importantes 
requiere, por supuesto, estudios orga- 
nizados. 

La segunda razon reside en su “exten- 
sibilidad”, que hace de el un lenguaje 
descriptivo de extraordinaria utilidad. Asi 
mismo, la formulacion de programas en 
Logo no solo imparte una jerarquizacion 
logica, sino que hace sencilla la busque- 
da de los errores que inexorablemente 
aparecen en la programacion. 

La tercera razon tiene que ver con el 
uso de estructuras de datos muy gene- 
rales como las listas, y las posibilidades 
que brinda la recursion. 

Las nuevas versiones de Logo disponi- 
bles, como la presente, nos acercan hoy 
mas a la posibilidad de su uso en cam- 
pos diversos. 


LAS COMPUTADORAS 
EN LA EDUCACION 


El uso de Logo en la educacion presu- 
pone una vision distinta de las maquinas. 
Logo se relaciona intimamente — como 
modalidad educativa— con la creatividad 
y la libertad, valores qu.e hay que ree- 
contrar y reconstruir permanentemen- 
te en todo ambito. 

La implementacion de Logo en las aulas 
no puede improvisarse, sino que requie- 
re por parte de los docentes y de los 
directives un reconocimiento cabal de 
los principios congnitivos en que esta ins- 
pirado. Los educadores deben compren- 
der que la filosofia de su uso es mas 
importante que los productos que se 
pueden obtener de la maquina. Como 
instrumento delicado, Logo torna mas 
rico y eficaz el proceso educativo pe- 
ro, al mismo tiempo, lo vuelve mas com- 
plicado y dificil de encaminar si no existe 
una concepcion clara de sus fundamen- 
tos y alcances. 

Es preciso comprender que un aprendi- 
zaje verdadero y profundo solo se alcan- 
za cuando el conocimiento formal se 
relaciona con el conocimiento personal 
de manera variada y diversa. En un pro- 
ceso educativo genuino, los temas tra- 
tados deben poseer puntos de contacto 
con el mundo circundante y relevancia 
personal para el alumno. El dialogo 
ensenanza-aprendizaje debe alentar y fa- 
vorecer la actividad autoconstructiva del 
educando, a fin de que este se encuen- 
tre con su propio yo, saque partido de 
sus recursos intelectuales y perciba que 
lo que aprende lo habilita para interac- 
tuar con su alrededor. Deben existir la- 
zos de afectividad con lo que se apren- 
de; es necesario que lo conceptual se 
vincule claramente con lo instrumental 
y que todo ambiente de aprendizaje per- 
mita convertir las ideas en hechos, con 
la posibilidad de corregir errores y de 
modificar rumbos. Logo solo puede 
arraigar y crecer en un ambito donde 
se aceptan y practican las premisas an- 
teriores. 

Logo puede ser considerado como un 
aporte filosofico a la educacion* lo que 
agrega a sus posibilidades poderosas en 
el campo de la computacion, una com- 
ponente social trascendente. En un ca- 
mino del pensamiento que busca que la 
ciencia y fa tecnologia esten mas al ser- 
vicio de las personas y de la cultura. 

HORACIO C. REGGINI 

Desafio a la mente, Seymour Papert, Buenos 
Aires, Galapago, 1981, Dist. Emece. 
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MSX DPC-200 VS. EL RESTO 

El siguiente es un cuadro comparative de las 
especiales caracteristicas de la primera maquina 
lanzada por Talent y el resto de las computadoras. 



3 

'J 

Talent 

MSX 

Commodore 

64 

Texas 

Tl 99 

Sinclair Apple II E 
Spectrum 

Microdigital Sinclair 
TK 2000 2068 

Lenguajes: 






* Basic elemental 


Standard 

Standard 



* Basic extendido 

Standard 

Opcional 

Opcional 



*Logo elemental (espanol) 

Standard 

Opcional 

Opcional 

Opcional 


*Logo extendido 

Opcional 

Opcional 

Opcional 

Opcional 


* Forth 

Opcional 

Opcional 




* Pilot 

Opcional 

Opcional 




* Pascal 

Opcional 





^Assembler 

Opcional 

Opcional 




*C 

Opcional 





Caracteristicas del Basic: 






* Editor Basic 

Pantalla 

Pantalla 

L/nea 


Linea 

^Control parametros musicales 

SI 

SI 

MO 

* 

MO 

*Funcion Imea 

SI 

MO 

MO 



*Funcion cfrculo 

SI 

MO 

MO 



*Funcion pintar 

SI 

MO 

MO 



*Funcion dibujar 

SI 

MO 

MO 



* Detector colision sprites 

SI 

MO 

MO 

MO 

MO 

*Programacion de dibujos 






desde Basic 

Sencilla 

Compleja 

Compleja 



*Programacion de musica 






desde Basic 

Sencilla 

Compleja 

Compleja 



* Largo de Imeas 

255 

80 

112 



*Compatibilidad CP/M 

SI 

Opcional 

MO 




HARDWARE 



Talent 

MSX 

Commodore 

64 

Texas 
Tl 99 

Sinclair 

Spectrum 

Apple II E 

Microdigital 

TK-2000 

Sinclair 

2068 

Procesador 

Z-80 A 

6510 

TMS 9900 

Z-80 

6502 

6502 

Z-80 

Reloj 

3,6 MHz 

1 MHz 


3,5 MHz 

1 MHz 

1 MHz 

3,6 M Hz 

Capacidad de memoria: 








*ROM incorporada 

32 KB 

20 KB 


8 KB 

16 KB 

16 KB 

24 KB 

*ROM incorporada video 

16 KB 







*RAM incorporada 

64 KB 

64 KB 

16 KB 

48 KB 

64 KB 

64 KB 

48 KB 

*RAM ampliable hasta 

1 MB 


48 KB 


128 KB 

128 KB 

1,3 MB 

Caracteristicas teclado: 








*Cantidad total teclas 

73 

66 

48 

40 

62 

54 

40 

*Cantidad teclas definibles 

10 

8 

— 

— 

— 

— 



*Cantidad teclas cursor 

4 

4 

4 

4 

1 

4 

4 

*Cantidad direcciones cursor 

8 

4 

4 

4 

4 

4 

4 

*Teclas p/may./min. 

SI 

SI 

SI 

SI 

SI 

NO 

SI 

*Teclas p/graficos 

SI 

SI 

NO 

SI 

NO 

SI 

SI 

*Teclas p/editor textos 

SI 

NO 

NO 

NO 

NO 

NO 

NO 

* Buffer teclado 

39 c 

10 c 

NO 

NO 

NO 

NO 

NO 

*Tipo teclas 

Mecanico 

Mecanico 

Mecanico 

Goma 

Mecanico 

Mecanico 

Mecanico 

Caracteristicas sonido: 








*Canales sonido 

3 

3 

3 


1 


4 

*Octavas por canal 

8 


8 


4 


8 

*Capacidad de ADSR 


SI 



NO 



Caracteristicas video: 








*Resolucion grafica (PIXEL) 

256x192 

320x200 

256x192 

256x176 

280x180 

280x1 92 

256x172 

*Resolucion multic (PIXEL) 

64x48 

160x200 




40x43 


*Resolucion textos 

40x24 

40x25 

32x24 

32x24 

40x24 

40x24 

32x23 

*Colores 

16 

16 

16 

8 

15 

6 

8 

* Sprites 

32 

16 

16 


— 


— 

Caracteristicas interfaces: 








*lmpresora paralela 

Standard 

Opcional 

Opcional 

Opcional 

Opcional 

Standard 

Opcional 

*lmpresora serial 

Opcional 

Opcional 

Opcional 

Opcional 

Opcional 

Opcional 

Opcional 

*TV color PAL-N 

Incorporada 


Externa 

Incorporada 

NO 

Incorporada 

NO 

*Salida monitor 

SI 

SI 

SI 

SI 

SI 

SI 

SI 

*Salida audio 

SI 

SI 

SI 

SI 

SI 

SI 

SI 

*Cassette audio (cable) 

Standard 

Opcional 

Opcional 

Standard 

NO 

Standard 

Standard 

’’'Joystick (conectores) 

SI (2) 

SI (2) 

SI (2) 

SI (2) 

Opcional 

SI (2) 

SI (2) 

*RS-232C 

Opcional 

Opcional 

Opcional 

Opcional 

Opcional 

Opcional 

Opcional 

*Para expansiones (SLOT) 

SI (2) 

SI (2) 

SI (1) 

NO 

NO 

NO 

SI (1) 

Accesorios opcionales: 








* Mouse 

Opcional 


NO 


Opcional 


NO 

*Track Ball 

Opcional 


NO 


NO 


NO 

*Lapiz optico 

Opcional 







* Lector codigo barras 

Opcional 







*Tableta grafica 

Opcional 


SI 


Opcional 



* Modem c/asincronico 

Opcional 


1 


Opcional 



*Caja expansiones 

Opcional 


Opcional 

NO 

NO 



* Lector tarj. magneticas 

Opcional 


NO 

NO 




*Teclado numerico 

Opcional 


NO 

NO 

Opcional 

NO 

NO 

Caracteristicas archivos: 








*Grabador 








-Canales 








-Velocidad 

1200/2400 

1200 


1500 

3400 


1500 

-Cable p/grabador comun 

Standard 

Opcional 

Opcional 


NO 

Standard 

Standard 

*Disketera 








-Formato 

5 1/4" 

5 1/4" 

5 1/4" 


5 1/4" 

5 1/4" 


-Capacidad almacenamiento 

4x180 KB 

2x170 KB 

1x140 KB 


6x140 KB 

2x140 KB 



4x360 KB 

— 

— 

— 

— 

— 



-Compatib. arch. MS-DOS 

SI * 

NO 

NO 

NO 

NO 

NO 

NO 

-Velocidad 






0 


Otras caracteristicas 



* 





*Fuente 220 V incorporada 

SI 

NO 

NO 

NO 

NO 

NO 

NO 

*Timer 

SI 

SI 

SI 

SI 

NO 

NO 

SI 

*Ranura p/cartridge soft 

SI 

SI 

SI 

NO 

NO 

NO 

SI 

* Expansion 

SI 

SI 

NO 

SI 

SI 

NO 

NO 




JUEGO DE LA OCA 

CLASE: EDUCATIVO 




s un juego donde deberemos 
contestar sobre operaciones 
matematicas. 

Hay un tablero cuadriculado 
con escaleras y toboganes, y el objeti- 
vo es llegar a la salida. 

Las escaleras nos permiten adelantar ca- 
silleros, pero si nos detenemos en algu- 
no con tobogan, volveremos hacia atras. 
Para avanzar^primero hay que contes- 
tar BIEN la cuenta que nos pregunte la 
computadora y segundo: lanzar un dado. 
Si nuestra respuesta es incorrecta o tar- 
damos mucho tiempo para contestar, 
entonces perderemos el turno y en con- 
secuencia no podrernos tirar el dado. La 
computadora nunca pierde su turno. 

El numero que hayamos obtenido con 
el dato sera la cantidad de cuadros que 
avanzaremos y si este numero coincide 
con seis, podrernos tirar dos veces el da- 
do. La computadora no tiene esta ven- 
taja porque ella tiene otra. La de no per- 
der nunca el turno. 

El juego esta acompanado por sonido y 
es optativo agregarlo. 

Al principio del juego se nos pregunta 
si queremos o no escuchar ruidos du- 
rante la ejecucion del programa. 
Hay nueve niveles, la maquina graduara 
la dificultad de las preguntas. Esto signi- 
fica que podrernos subir o bajar de ni- 
vel dependiendo de nuestras respuestas. 
Las preguntas pueden ser sobre multi- 
plicaciones o bien cuentas sobre las cua- 
tro operaciones basicas (multiplicacion, 
division, suma y resta) con cantidades 
sencillas o con numeros mas 
complicados. 

Este programa esta realizado totalmen- 
te en BASIC y es sorprendente la rapi- 
dez con que se realizan los cambios de 
pantallas. 

Pero aunque parezca que ganaremos, 
podemos llevarnos un chasco porque 
hast a el ultimo momento no es seguro 
que el que se encuentre mas avanzado 
sea el ganador. 

Variables IMPORTAMTES: ~ 

SO: sonido encendido o apagado 
OP: opcion del menu 
Dl: numero de dificultad (es igual a la 
resta entre 1 0 y el digito entrado) 



PY(I): coordenada X para graficar en 
el tablero los mufiecos en cual- 
quiera de los 63 espacios 
PY(I): coordenada Y 
SOS, SIS : define los dos muhecos 
como sprites 

PP, CP: posicion del jugador y de la 
computadora sobre el 
tablero 

TR: numero de tentativas 

OK: numero de respuestas correctas 

SIS: operacion matematica. 
ejemplo: suma, resta, etc. 

CA: respuesta correcta 
PAS: respuesta del jugador 
PT, CT: posicion temporaria durante 
el chequeo 
SC: tiro del dado 
LI!: tiempo limite 

Estructura del programs: 

10 - 100 : pantaila de presenta- 
tion. 

I 10- 4S0: comentarios sobre el 
programa que saldran 
por pantaila. 

460- 450: cuerpo principal del 
programa. 

650- 800: dimensiona y carga las 
coordenadas X e Y pa- 
ra cuadrilar el tablero. 

820- 1 050: dibuja la cuadricula de 9 
casilleros por siete con 
los graficos completos 


de los toboganes, las 
escaleras y el simbolo 
de salida del tablero. 
1070-1320: organiza las operacio- 
nes matematicas, lla- 
mando otras rjbruti- 
nas. En esta seccion se 
tiene en cuenta el limi- 
te de tiempo contenido 
en la variable Dl. 
1340-1370 : sumas 
1190-1420: restas 
1440-1460: multiplicaciones 
I480-IS00: divisiones 
1520-1580: tiro del dado 
1 600- 1 790: movida del jugador. En 
las lineas 1 660 hasta la 
1 760 se fija si el sprite 
cae en algunos de los 
dibujos del tablero (to- 
bogan, escalera o sali- 
da). Si esto sucede de- 
bemos ajustar las varia- 
bles y realizar las ope- 
r ac i o n es 
correspondientes. 

I 8 1 0- 1 990: movida de la computa- 
dora con las verificacio- 
nes y operaciones simi- 
lares a las anteriores. 
2010-2040: mensajes si gana el ju- 
gador. 

1060-2 100: mensajes si gana la 
computadora. 









10 GOSUB 650 : CLS 

20 COLOR, 1, l: SCREEN 3= CLS: PRESET 
(0,0)3 FOR T =32 TO 192 STEP32: RE 
AD CH 

30 C-RND (-TIME) *12+1 * IF C=1 THEN 
30 

40 COLOR C: PRESET (T, 16) 

50 PR I NT# 1 , CHR# < CH ) ; : FOR DL= 1 TO 
200: NEXT: NEXT: PRESET 14,64) : FOR 
T= 32 TO 192 STEP 32: READ CH 
60 C=RNDl-TlM£)*12+i: IF C=1 THEN 
60 

70 COLORC : PRESET C T , 64 > : PR I NT# 1 , 
CHR# (CH) ; : NEXT 

SO FOR T=64 TO 160* STEP 32: READ 
CH: C=RND < 1 > +=12+2: COLOR C: PRESET ( 
T, 112) 

90 PRINT#!, CHRS (CH) ; :FOR DL=1 TO 
800: NEXT: NEXT 

100 DATA 74,85,69,71,79,32,68,69 

,32,76, 65 , 32 , 79, 67 , 65 

110 FOR DL= 1 TO 5000: NEXT: COLOR 

5,1,13= SCREEN 1: LOCATE 0,10: PR 

I NT “QU I ERE EFECTOS SONGROS?” : PRIN 

T : PR I NT " ENTRE S 0 N 

120 IF INKEY*<> ,, “ THEN 120 

130 A#=INKEY*: IF A*<>"S“ AND A# 

<>"N“ THEN 130 

140 IF AS="3" THEN SO=-l ELSE SO 
=0 

150 PRINT AS: FOR DL=1 TO 650: NE 
XT: CLS: COLOR 12,1,1 
160 LOCATE 3,3: PR I NT " QUE TIPO DE 
F’REGUNT AS PRINT: PRINT TAB(3>;“ 

QUERES?" 

170 LOCATE 2, 9: PRINT" 1 - TABLAS 
DE MULTIPLICAR": PRINT: PRINT TAB (2 
) 5 "2 - TOD AS LAS OPERACIONES" 

ISO PRINT TAB (6) ; " (NUMERGS FACIL 
ES) " : PRINT: PRINT TAB<2>;“3 - TOD 
AS LAS OPERACIONES" 

190 PRINT TAB(6> : “ (NUMEROS DIFIC 
ILES) " 

200 IF INKEYSO"" THEN 200 

210 A*= INKEY#: IF VAL(A#><1 OR VA 

L(A#>>3 THEN 210 

220 OP“VAL (A#) : LOCATE 11, 5: PRINT 
A# 

230 FOR DL=i TO 1000: NEXT: CLS: CO 
LOR 5 


240 PRINT TAB (3) "ELEGl EL NIVEL 
DE D I F I CUL- TAD 7 (1 -9 > “ = PR I NT : 

PRINT TAB (3) " 1 ES DIFICIL - 9 ES 
FACIL." 

250 LOCATE 4, 14: PRINT "PERG YO 6 
RADUARE EL NIVEL" : PRINT TAB (4) "Q 
UE VOS NECESITAS . “ 

260 IF INKEY#< >" " THEN 260 
270 A#= INKEY#: IF VALIA$)<1 THEN 
^7 o 

280 DI=VAL(A#> :DI=10-D I: LOCATE 1 
4, 8: PRINT A$: FOR DL=1 TO 1000: N 
EXT 

290 SCREEN Q: COLOR 1,7: LOCATE 
0,8: PRINT "EN ESTE JUEGO DEBES CO 
NTESTAR" 

300 PRINT "PRE6UNTAS ARITMETICAS 
PRINT : PRINT : PRINT 
310 PRINT "SI TE EQUIVOCAS O TAR 
DAS MUCHO, ”: PRINT "PIERDES EL TUR 
NO . " 

320 LOCATE 6, 20: PRINT “PRES IONA L 
A BARRA DE E3PACI0 . . . " : IF INKEY# 

<>" " THEN 320 

330 COLOR 14, l: SCREEN 2, 2: SPRITE 
SCO) =S0#: PUT SPRITE 0, ( 1 12, 64) , 1 1 
340 PRESET (144, 72) :PRINT#1, "VOS" 

: SPRITE# (1)=S1#: PUT SPRITE 1,(1 
12, 88 ) , 5 

350 PRESET (144, 96) : PRINT #1,"Y0" 
360 LINE (56, 120) -(120, 123) , 13, BF 
: PRESET (144, 120): PR I NT #1,"T0B0GA 
N" 

370 LINE (56, 142) -(120, 142) ,3: LIN 
E (56, 144) -(120, 144) ,3 
380 PRESET (144, 136) : PRINT#1 , "ESC 
ALERA" : FOR DL=1 T07000:NEXT 
390 COLOR 1,115 SCREEN O: LOCATE 
0,2: PR I NT" PRES IONA SPACE PARA LAN 
ZAR LOS DADOS.": PRINT 
400 PRINT: PRINT "PARA SALIR DEL 
TABLERO TENDRAS QUE": PRINT: PRINT 
"OBTENER EN LA ULTIMA T I RADA DE 
DADOS, " 

410 PRINT "EL NUMERO EXACTO DE C 
ASILLEROS QUE" : PR I NT: PR I NT" TE FAL 
TAN PARA SALIR.": PRINT 
420 PR I NT: PR I NT "TE PERMITIRE QU 
E TIRES DENUEVO LOS" : PRINT: PRINT" 
DADOS SI SAC AS UN SEIS" 


430 PR I NT : PR I NT : PR I NT : PR 1 NT " JUGE 
MGS ..."SPRINT: PR I NT " PRES I ONE LA 
BARRA DE ESP AC 10..." 

440 IF INKEY#< >" " THEN 440 
450 IF I NKEY $< > “ " THEN 450 
460 REM 

470 CLS: COLOR 1 0, l: LOCATE 7, 22: PR 
I NT "NIVEL DE DIFICULTAD =";10-DI 
480 GOSUB 1070 

490 IF NOT GO THEN LOCATE 12,20: 
PR I NT " PERD I O UN TURNO":FOR DL =1 
TO 5000= NEXT 

500 CLS: IF NOT GO THEN 560 

510 LOCATE 14, 12:PRINT"T'J TURNO" 

: GOSUB 1520 

520 GOSUB 1600 

530 IF FF-63 THEN 600 

540 IF SC=6 THEN LOCATE 14,11=PR 

I NT "T IRA OTRA VEZ" : IF SO THEN PL 

AY " S 1 1 M900 V6ECEC " 

550 IF SC=6 THEN GOSUB 1520: GOT 
O 520 

560 FOR DL=1 TO 1500: NEXT: COLOR 
5: CLS: LOCATE 14,12: PRINT"MI T 
URNO": GOSUB 1520 
570 GOSUB 1810 
580 IF CP=63 THEN 600 
590 FOR BL= 1 TO 1500: NEXT: GOT 
O 470 

600 IF PP=63 THEN GOSUB 2010 ELS 
E IF CP=63 THEN GOSUB 2060 
610 FOR DL=1 TO 8000: NEXT: CLS: 
LOCATE 2,7: PR I NT " QU I ERE VOLVER 
A JUGAR? (S/N) " 

620 A#=INKEY#: IF A*<>"S" AND A# 

< >"N" THEN 620 

630 IF A#="S“ THEN RUN ELSE CLS: 

END 


650 SCREEN 0: DEFINT A-Z: KEY OFF 
660 OPEN "GRP:" AS#1: PP=l: CP=1 
670 DIM PX (64) , PY(64>: AX=8: AY 
=160: Z 1=1 

680 FOR J=1 TO 4: FOR I=ZI TO ZI 

+8 

690 PX(I)=AX: PY ( I ) =AY: AX=AX+24: 
NB*T 

700 ZI=ZI+1S: AX=8: AY=AY-4S: NEX 


MSX 

LA NORMA INTERNACIONAL 
EN MICROCOMPUTACION 


DPC 

200 



CONTADO A 495 


PLANES DE FINANCIACION 


APLICACIONES PARA: 

• LA EMPRESA 

•EL HOGAR 
•EL PROFESIONAL 

• LA ESCUELA 
•JUEGOS 


mmi-comp s.r.l. 

MAIPU 862 (2000) ROSARIO 
Te: (041) 64*447 
63*091 y 21*1266 


ADEMAS DISPONEMOS DE: 

• INSTITUTO DE ENSENANZA PROPIO 

• LABORATORY TECNICO PROPIO 
•ASESORAMIENTO A ESCUELAS 
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T : Z I = : ft X =200 : A Y= 1 36 

710 FOR J-l TO 3: FOR I = Z1 TO I I 

4-0 

720 PX v 1 ) =AX: F/ C I ) =AY= AX=AX-24: N 
EXT 

730 Z I = Z I + 1 8 : A X =200 : A Y - A Y- 40 : NE X 
T 

740 M=2056s FOR J=i TO 2: FOR 1=1 
TO S : B= v'F’EEK ( M ) 

750 SO*=SO*+CHR* (S) :M=M+1: NEXT 
760 M=2056 • NEXT : M=2064 
770 FOR J=1 TO 2: FOR 1=1 TO 8:B 
= VPEEK ( M ) 

780 S1*=S1*+CHR*(B) :M=M+l: NEXT 
790 M=2064: NEXT 

800 SOUND 6,1: SOUND 7,46: RETUR 
N 


o i O’ 1 : SO ! U 1 

1200 LOCATE 7,1: PR I NT" HAL ! ! - L 
A RESPUESTA CORRECT A ES " ; 

CAS SOTO 12207 A OK O 
1210 LOCATE 7,2: PR X NT ' OEMAS 1 ADO 
LENTO!" ‘ .. \ 

1220 FOR DL=l"TO 3000: NEXT 
123 C IF TR=3 AND 0K<2 AND v SO THE 
tt 3 I =B I - 1 : PLAY " S3M2G00G 7EEEE " : oO 
TO 1290 

1240 IF TR=3 AND 0K<2 THEN DI=DI . 
-is SOTO 1290 . 

1250 IF TR=3 1AND 0K=3 AND SO THE 
N DI-DI : l:PLAY ,, S8H200007EEEE , ‘: SO 
TO 1290 

1260 IF TR=3 AND GK=3 THEN DI=DI 
+l: SOTO 1290 

1270 IF 7R=3 THEN TR=0: OK=Q: RE 
TURN 

1280 RETURN 

1290 TR=0:0K=0:IF DI<1 THEN DI=1 
ELSE IF DI >9 THEN DI=9 
1300 LOCATE 7 , 22= PR I NT “NIVEL DE 
DIFICULTAD =" : ZZ=10— DI : FOR 1=1 TO 
6: LOCATE 27,22 

1310 PRINT" FOR DL=1 TO 250: 
NEXT: LOCATE 26, 22: PRINT ZZ: FOR 
DL=1 TO 500: NEXT: NEXT 
1320 RETURN 

1330 ? ========================== 


820 SCREEN 2,2: COLOR 9,1,1: CL3 
830 FOR Y=12 TO 180 STEP24:LINE( 
4, Y) - (220, Y) : NEXT 
840 FOR X=4 TO 220 STEP 24: LINE 
(X, 12)-(X, ISO) : NEXT 
850 LINE (112, 120) -(160, 72) ,3: LIN 
E ( 1 1 0, 1 18) — ( 158, 70) , 3 
860 LINEU10, 166>-(158, 118) ,3:LI 
NE (112, 168) -(160, 120) ,3 
870 LINE (64, 96) — ( 16, 48) ,3: LINE (6 
6, 94) — ( 18, 46) , 3 

880 L I NE (14,1 20 > — (14, 72 ) , 3 : L I NE ( 
16, 120) — ( 16, 72) , 3 
890 LINE (112, 96) — (88, 72) , 3: LINE ( 
110, 98) — (86, 74) ,3 

900 L I NE ( 64 , 48 ) — ( 40 , 24 ) , 3 : L I NE ( 6 
6, 46) - (42,22) ,3 

910 L I NE ( 1 36 , 72 ) —(112, 48 ) , 3 : L I NE 
( 1 38 ,70)— (114, 46 ) ,3 
920 LINE ( 184, 96) - (208, 72) , 13: LIN 
E ( 183, 95) - (207, 71 ) , 13 
930 LINE ( 182,94) — (206, 70) , 13 
940 L I NE ( 207 , 1 44 ) — ( 207 , 96 ) , 1 3 : L I 
NE (208, 1 44 ) — ( 208 , 96 ) , 13 
950 LINE (209, 144) -(209, 96) , 13 
960 LINE (87, 48) -(87, 24) , 13:LINE( 
88,48>-{8S,24) , 13 
970 L I NE ( 89 , 48 ) — ( 89 , 24 ) , 1 3 
980 L I NE ( 63 , 1 68 ) — ( 63 , 1 20 ) , 13:LIN 
E (64, 168) — (64, 120) , 13 
990 LINE(65, 168)-(65, 120) , 13 
1000 PRESET (200, 16) : COLOR 15: PR 
INT #1,"**": PRESET (200, 24) : PRINT 
# 1 , "**" 

1010 Y=168: FOR J=1 TO 2: FOR 1= 

1 TO 3: PRESET (224, Y) :PRINT#1, 

1020 Y=Y— 48: NEXT : Y=160: NEXT 
1030 SPRITE* (0) =80$: PUT SPRITE 

0, (PX(PP) ,PY(PP) ) , 11 

1040 SPRITE* (1)=S1*: PUT SPRITE 

1, (PX (CP) +8, PY (CP) ) ,5 
1050 RETURN 

1060 ’========================== 


1070 LOCATE 7, 22: PR I NT "NIVEL DE 
D I F I CULT AD= " ; 10-DI : 60=0 
1080 IF 0P=1 THEN GOSUB 1440: SO 
TO 1100 

1090 RR=RND (-TIME) *4+1: ON RR SO 
SUB 1340,1390,1440,1480 
1100 LOCATE 7,5: PRINT"QUE ES " 5 N 
1 ; SI * ; N2 

1110 PRINT : PRINT TAB (7) "RESPUES 
TA ="; :PA*="":TIME=0 
1120 IF DI<4 THEN LI!=875/DI ELS 
E LI !=32*D 1+373 

1130 AA*=INKEY$: IF AA*<>“" THEN 

1130 

1140 ZZ*=INKEY*: IF ZZ*^"." THEN 

1140 

1150 IF TIME>LI ! THEN TR=TR+1 : S 

OTO 1210 

1160 PRINT ZZ*; 

1170 PA*=PA*+ZZ*: IF LEN(PA*>< L 

EN ( STR* ( C A ) ) — 1 THEN 1140 
1180 TR=TR+1 

1190 IF VAL (PA*) =CA THEN GQ=- 1 : 
OK=OK+ 1 : LOCATE 7, 10: PRINT"CGRRE 


1340 IF CP=2 THEN N1=RND (-TIME) * 
10+1 : N2=RND (-TIME) *10+1: SOTO 13 

60 

1350 N1=RND( -TIME) *99+1: N2=RND ( 

1 ) *99+ 1 

1360 SI*=" MAS CA=N1+N2 
1370 RETURN 

1380 7 ========================== 


1390 IF 0P=2 THEN N1=RND (-TIME) * 
10+1 : N2=RND(5)*10+l: IF N2>=N1 TH 
EN 1390 ELSE SOTO 1410 
1 400 N 1 =RND (-TIME) *99+ 1 : N2=RND ( 1 
) *99+ 1 : IF N2>=N1 THEN 1400 

1410 SI*=" MENOS": CA=N1-N2 
1420 RETURN 

1440 N1=RND (-TIME) *12+1 = N2=RND (6 
) * 12+1 

1450 SI*=" VECES " : CA=N1*N2 
1460 RETURN 


1480 N2=RND (9) *12+1 : IF OP=2 THE 
N CA=RND (5) *5+1 ELSE CA=RND(7)*20 
+ 1 

1490 SI*=" "+CHR* (246) +" ":N1=N2 
*CA 

1500 RETURN 


1520 LOCATE 16, 15: PRINT STRING* 
(5, CHR* (219) ) 

1530 LOCATE 16, 19: PRINT STRING* 
(5, CHR* (219) ) 

1540 FOR 1=1 TO 3: 

I: PRINT CHR* (219) 

9): NEXT 

1550 LOCATE 7,6: PRINT"PRESIONA 
LA BARRA DE ESPAC 1 0 - " : IF INKEY*< 
>"" THEN 1550 

1560 IF INKEY*<>" " THEN 1560 


LOCATE 16,15+ 
SPC (3) CHR* (21 


1570 FOR 1=1 TO 40: SC=INT (RND (— T 
IME) *6+ 1 ) : LOCATE 17,17: PRINT SC 
; : NEXT 

1580 FOR DL=1 TO 2000= NEXT: SCR 
EENO: RETURN 

1590 ’====================;====== 


1600 IF PP+S063 AND SO THEN PL A 
Y"02V10EC" 

1610 IF PP+S063 THEN LOCATE 15, 
12: PRINT "DEMASI ADO GRANDE" : RETUR 
N 

1620 GOSUB 820: PUT SPRITE .0, (PX 
(PP) , PY (PP) > > 11 

1630 FOR DL=1 TO 1000: NEXT: FOR I 
=1 TO SC: PF-PP+1 

1640 PUT SPRITEO, (PX (PP) , PY (PP) ) 
,11: IF SO THEN BEEP 
1650 FOR DL=1 TO 1000: NEXT: NEX 
T : PT =PP 

1660 RESTORE 2120: FOR 1=1 TO 11: 
READ AA,BB: IF PP=AA THEN PP=BB 

1670 NEXT 

1680 IF PP< PT THEN 1740 ELSE IF 
PP=PT THEN 1780 


1690 XX=PX (PT) : FOR I=PY(PT> TOPY 
;PP) STEP S: PUT SPRITE 0, (XX. I), 
1 1 

1700 IF FT =5 OR PT=23 THEN XX=XX 
+8 

1710 IF FT =32 OR FT^34 OR PT-42 
OR PT=52 THEN XX=XX-8 
1720 NEXT: IF SO THEN SOUND 8,15: 
SOUND 8,0: SOUND 9,0 
1730 GOTO 1780 

1740 XX=PX (PT) : FOR I=PY(PT> TO P 
Y ( PP ) STEP 8: PUT SPRITE 0, (XX, I) 
,11 

1750 IF PT =45 THEN XX = XX -8 
1760 NEXT : IF SO THEN SOUND 8,15 

: SOUND 9,15: FOR J=C TO 1: FOR I 
=1 TO 250 STEP 16 
1770 IF SO THEN SOUND 0,1: SOUND 
1, J: NEXT: . NEXT: SOUND 8,0: SOUND 
9,0 

1780 IF PP=63 AND SO THEN PLAY"M 
500006ECECECEC" 

1790 FOR DL=1 TO 3000: NEXT: CLS 
: SCREEN 0: RETURN 

1810 IF CP+SC >63 AND SO THEN PL A 
Y" 02V10EC" 

1820 IF CP+SC >63 THEN LOCATE 15, 

1 2 : PR I NT " DEM AS I ADO GRANDE " : RETURN 
1830 GOSUB 820: PUT SPRITE 1,(PX 
(CP) +8, PY (CP) > ,5 

1840 FOR DL=1 TO 1000: NEXT: FOR 
1 = 1 TO- SC: CP=CP+1 
1850 PUT SPRITE 1 , (PX (CP) +8, PY (C 
P) ) , 5: IF SO THEN BEEP 
tRAO For m =i Tn inon: nfyt=nfyt 
: CT=CP 

1870 RESTORE 2120: FOR 1=1 TO 1 1 
: READ AA,BS: IF CP«AA THEN CM11 
1880 NEXT 

1390 IF CP'sCT THEN 1950 ELSE IF 
CP=CT THEN 1980 

1900 XX=PX (CT) +8: FOR I=PY(CT> T 
O PY (CP) STEP-8: PUT SPRITE 1,(XX 
, I) ,5 

1910 IF CT=5 OR CT=23 THEN XX=XX 
+8 

1920 IF CT=32 OR CT=34 OR CT=42 
OR CT=52 THEN XX=XX-8 
1930 NEXT: IF SO THEN SOUND 8,15 
: SOUND 9,15: FOR J=1 TO O STEP-1 
: FOR 1=250 TO 1 STEP -16: SOUND 
0,1: SOUND 1 , J: NEXT: NEXT;. SOUND 
8,0: SOUND 9,0 
1940 GOTO 1980 

1950 XX=PX (CT) +8: FOR I=PY(CT) T 
0 PY (CP) STEP 8: PUT SPRITE 1,(XX 
, I) ,5 

1960 IF CT=45 THEN XX=XX-8 
1970 NEXT: IF SO THEN SOUND 8,15 
: SOUND 9,15: FOR J=0 TO 1: FOR I 
=1 TO 250 STEP 16: SOUND 0,1: SOU 
ND 1 , J: NEXT : NEXT : SOUND 8,0: SO 
UND 9,0 

1980 IF CP=63 AND SO THEN PLAY"M 
-500006ECECECEC" 

1990 FOR DL=1 TO 3000: NEXT: CLS 
: SCREENO: RETURN 
2000 ’ ========================== 


2010 COLOR 10: LOCATE 13,7: PRIN 
T " USTED GAN A" 

2020 IF CP >55 THEN LOCATE 7,12: 

PRINT " PERO RASPANDO " : GOTO 21 

00 

2030 IF CP<39 THEN LOCATE 7,12: 
-RINT" YO ESTUVE BAST ANTE ATRAS . " : 
GOTO 2100 USTED GAN A 

2040 LOCATE 12,15: PRINT "BIEN H 
ECHO": GOTO 2100 


2060 LOCATE 13,7: PRINT"YO GANE ! 

i i »* 

2070 IF PP >55 THEN LOCATE 7,12: 
PRINT "PERO ME PISASTE LOS TALONES 
": GOTO 2090 - ’ 

2080 IF PP<39 THEN LOCATE 7,12: 
PRINT "QUE LEJOS QUE EST ABAS ! ! ! " : 
GOTO 2090 

2090 LOCATE 12,15: PR I NT "MALA SU 
ERTE ‘ ! " 

2100 LOCATE 3,18: PRINT"TU ULTIM 
0 NIVEL FUE: 10-DI 

2110 RETURN 

2120 DATA 5,25,19,37,21,3,23,43, 
28, 10,32,40,34,54,42,50,45,29,52, 
56,58,51 


CAJERO 

COMERCIAL 

nsistiendo en tratar de demos- 
trar que las computadoras no 
se inventaron solo para que las 
disfrutemos jugando, aqui te- 
nemos un programa que nos ayudara a 
llevar la caja. Si, por ejemplo, un cole- 
gio realiza un espectaculo para los alum- 
nos, padres y profesores y el valor de 
la entrada varia de acuerdo a los distin- 
tos niveles en que se encuentra el alum- 
no (secundario, primario y jardin de in- 
fantes) y ademas se diferencia entre pro- 
fesores y padres, entonces este progra- 
ma es ideal para facilitarnos el “doloro- 
so” trabajo de recolectar el dinero. 
Pero obviamente el programa se puede 
ajustar a cada necesidad especifica co- 
mo controlar la caja de un cine o 
exposicion. 

Y para las MSX que tengan conectada 
una impresora, saldra el resumen de las 
entradas vendidas. 

La entrada de datos se efectua presio- 
nando las teclas de funcion. 

1 — padres 

2 — secundario 

3 — primario 

4 — jardrn de infantes 

6 — cancela la entrada de datos 
10 — imprime los resultados del dia 
Para imprimir la cantidad de personas 
que ingresaron a ver el espectaculo, pe- 



ro sin detallar el dinero recolectado, una 
vez que se termino de ingresar los da- 
tos, presionar RETURN. 

Tambien nos puede decir cual es el vuel- 
to que debemos dar. 

Pero si no tenemos impresora y quere- 
mos que el procesamiento de los datos 
se muestre por pantalla, podemos reem- 
plazar en el programa las instrucciones 
LPRINT por PRINT. Como en la linea 
430, que al cambiar las instrucciones que 
mencionamos antes sera: 430 PRINT 
“TOTALES DEL DIA’ 1 
Los valores de las entradas que tiene el 
programa estan en centavos, pero se 
pueden modificar. En la linea 50, A% es 
el valor para los padres, c% para los 
alumnos del secundario, o% para prima- 
rio y p% para jardin de infantes. Noso- 
tros hemos cargado estas variables con 
20, 12,10,10 respectivamente. 

Otra opcion seria agregar a la salida por 


impresora el nombre del lugar donde es- 
tamos contabilizando. 

Para esto agreguemos la linea 685 
LPRINT: LPRINT “COLEGIO...” 


Variables IMPORTAHTES: 

TA% numero de padres 
TC% numero de alumnos del 
secundario 

TS% numero de alumnos del primario 
TP% numero de alumnos de jardin de 
infantes 

TT% total de dinero recolectado 
0 % valor de la entrada para primario 
A% valor para los padres 
C% entrada para los del secundario 
p% valor de la entrada para los del 
jardin 

Estrmtura del programa: 

10- 30:selecciona modo y color 
50 sinicializa valores de las 
entradas 

60 Sinicializa variables 
70- 1 60sinicializa teclas de funcion 
1 70-2 1 Osloop principal 
220-360 Jmenu con las posibles 
entradas 

370-4 1 Osverifica que la entrada de los 
datos sea correcta 

420-5 50:salida de los datos entrados 
durante el dia 

560-600scalcula el vuelto, mensaje 
para continuar la siguiente 
operacion 

6 IO-660:actualiza la cantidad de en- 
tradas vendidas 

670-750:imprime la concurrencia 



10 KEY OFF 


dario . . . " ; TCX*CX; M c u 

rograma <S/N> ?" 

20 SCREEN 0 


320 LOCATE 2, 9: PRINT TSX; M Prima 

530 AA$=INKEY$: IF AA$=“S“ OR A A 

30 COLOR 15,1,15 


rio . . TSX^OX; " c“ 

$="s" THEN RUN 

40 REM ****** 


330 LOCATE 2,ll:PRINT TPX;" Jard 

540 IF AA^=“N“ OR AA»=“n“ THEN C 

50 AX=20 : CX= 1 2 : OX= 1 0 : PX= 1 0 


in d e i n f an . . . M ; TPX*PX ; " c " 

LS: PRINT “ Ad i os . - . “ : END 

60 NAX=0 : NCX=0 : NQX=0 : NPX=0 


340 TTX=TAX*AX+TCX*CX+TSX*OX+TPX 

550 GOTO 530 

70 CLS 


+PX 

560 CLS: LOCATE 2,2= INPUT“SE PA 

SO KEY 1 , "A" 


350 LOCATE 5, 15: PRINT “TOTAL 

GO CON:- “ ; CA 

90 KEY 2, “ c " 


" : TTX/ 100 

570 IF CA<TTX/ 100 THEN GOTO 560 

100 KEY 3, "s M 


360 IF A$OCHR$(13) THEN GOTO 23 

580 PRINT: PRINT: PRINT: PR I NT “H 

110 KEY 4, “p“ 


0 

ay que devolver “;CA-TTX/100 

120 KEY 5 » " t “ 


370 REM **** 

590 LOCATE 1,10: PRINT "Pres i one 

130 KEY 6, ” q" 


380 LOCATE 1 , IS: PRINT"Es esto co 

la barra espaciadora cuando este 

140 KEY 7,“m“ 


r recto (S/N)? 

listo para la prtixima operacibn" 

150 KEY 8, "y" 


390 A$=INKEY$: IF A$="N“ OR A$="n 

600 A^=INKEY$: IF A$<>“ “ THEN 6 

160 KEY 9 , " n " 5 KEY 10,“e" 


" THEN 220 

00 

170 60SUB 220 


400 IF A$=“S , ‘ OR A$="s" THEN RET 

610 REM ***** 

180 60SUB 560 


URN 

620 NAX=NAX+T AX 

190 60 SUB 680 


410 GOTO 390 

630 NCX=NCX+TCX 

200 GOTO 70 


420 REM ******** 

640 NOX=NOX+TSX 

210 END 


430 LPRINT TOTALES DE 

650 NPX=NPX+TPX 

220 CLS s T AX=0 : TCX=0 s TSX=0 : TPX=0 

L DIA ****+:*:*+*- *' 

660 RETURN 

230 A$=INKEY$ 


440 LPRINT “Tipo", "nilmero", "vent 

670 REM ******* 

240 IF A$=“a" OR A$="A" THEN 

TAX 

as" 

680 LPRINT : LPRINT" Concurrencia 

-TAX+1 


450 LPRINT “Padres " , NAX, NAX*AX/ 

II 

250 IF A$="c" OR A$="C" THEN 

TCX 

100 

690 LPRINT: LPRINT “************* 

=TCX+1 


460 LPRINT “Secundar i o“ , NCX> NCX* 

************************ " 

260 IF A$=“s" OR A$="S" THEN 

TSX 

CX/100 

700 IF TAX>0 THEN LPRINT TAX; " P 

=TSX+1 


4/0 LPRINT “Pr « mar i o " , NOX, NOX^OX 

adres" 

270 IF A$="p 11 OR A$=“P“ THEN 

TPX 

/100 

710 IF TCX>0 THEN LPRINT TCX; “ S 

— TPX+1 


480 LPRINT “J/de i n f an . “ , NPX, NPX 

e cun dar i o“ 

280 IF A$=“e“ OR A$="E“ THEN 

60S 

*PX/100 

720 IF TSX>0 THEN LPRINT TSX; " P 

UB 620: GOSUB 430 


490 TNX=NAX+NCX+NOX 

r i mar i o " 

290 IF A$=“ q“ OR A$=“Q“ THEN 

GOT 

500 TMX= ( NAX*AX ) + ( NCX*CX ) + ( N0X*0 

730 IF TPX>0 THEN LPRINT TPX;" J 

0 220 


X)+(NPX*PX> 

ardin de infan. “ 

300 LOCATE 2,5:PRINT TAZ; " Padre 

510 LPRINT “TOTALES :- “,TNX,TMX 

740 LPRINT " ******************** 

s • . . ,l ;TAX*AX; " C" 


/100 

***************** «• 

310 LOCATE 2, 7: PRINT TC%; " Secun 

520 CLS: PR I NT" Qu i ere vtjlver al p 

750 RETURN 




EDITOR 
) ASSEMBLER 

#i CLASE: UTILITARIO 




ara escribir datos en Assembler 
en la memoria de la computa- 
dora, existen diversos metodos 
■— y este es uno. 

En el ambiente de los programadores, 
este programa es un editor Z80, pues 
es utilizado para programar el micropro- 
cesador Z80 — cerebro de las MSX — . 
Este editor permite leer, escribir, gra- 
bar y cargar rutinas en codigo de 
maquina. 

Cuando consideramos terminado el in- 
greso de datos, presionemos la tecla de 
FUNCTiON 5 seguida por RETURN. 
Aparecera el mensaje: "Ejecucion abor- 
tada...” y nos marcara, en el renglon in- 
ferior, en que modo nos hallamos. 
Cuando estemos en el modo “CTRL” 
podemos seleccionar la proxima opera- 
cion que realizara la computadora, pu- 
diendose escoger entre: leer direccio- 
nes de memoria (FI), grabar en cinta 
(F2), cargar desde cinta (F3) o escribir 
codigo de maquina en la memoria (F5). 
Las direcciones, como los datos, debe- 
ran ser entrados en hexadecimal. 

Para almacenar las rutinas en Assembler 
que construyamos con este editor, po- 
demos tambien usar la disketera, modi- 
ficando las lineas: 550 y 600. La primer 
linea se podra modificar de la siguiente 
forma: 550 BSAVE“Z-80”, 

&HDOOO, MX y la segunda por: 600 
BLOAD“Z-80”. Pero de esta manera, 
cada subrutina en Assembler sera car- 
gada con el mismo nombre. La linea 5 1 0 
se puede borrar si trabajamos con la dis- 
ketera y no con el cassette. 



Variables 1MP0RTANTES 

PCs Direccion de memoria inicial 
FA: Direccion de memoria final para la 
lectura 

MX: Ultima direccion donde escribimos 


Estructura del programa; 

10- 1 60s Inicializacion de variables. 
170- 230s Prepara teclas de funcion. 
240- 480s Rutina que permite leer di- 


recciones de memoria. 

490- 570s Rutina para grabar en cinta. 

580- 620s Carga desde cinta, codigo 
de maquina. 

630- 640s Corta la actividad que es- 
taba realizando y vuelve a 
aceptar un modo. 

650- 900s Acepta codigo de maquina. 

910- 970s Pantalla del comienzo. 

980- 1 260: Operaciones y datos. 


10 KEY OFF 
20 DEFINT A-Z 
30 CLEAR 8 1 92 * &HD000 
40 60SUB 910 

50 PRINT "ESPERE POR FAVOR" 

60 DIM L<255> , X (255) 

70 DA=0:PC=127:MX=&HD000 
80 READ D*,FI$ 

90 Wl=l 

lOO FOR P=DA TO PC 

110 L(P)=VAL(MID*(D*,W1, 1) ) 

120 X<P)=VAL(MID*<FI*,W1, 1) ) 

130 W1=W1+1 
140 NEXT P 

150 DA=DA+128:PC=PC+128 
160 IF DA=256 THEN GOTO 170 ELSE 
GOTO 80 

170 LOCATE 0, CSRLIN— 1 : PRINT "LIST 

0 MODO CONTROL " 

180 6GSUB 1210 
190 KEY ON 


200 KEY ( 1 ) ON: KEY (2) ON: KEY (3) 0 

N: KEY (4) ON : KEY ( 5 i ON 

210 ON KEY GOSUB 240,490,580,630 

,650 

220 KEY4, " >CTRL< " 

230 GOTO 180 
240 GOSUB 1210 
250 KEY1 , " >LEER< " 

260 PRINT : PRINT "ENTRE LA DIREC 
CION DE COMIENZO" 

270 INPUT PC 

280 IF PC<0 THEN PC=65536 ! +PC 
290 PRINT "ENTRE LA ULTIMA DIREC 
CION (OPCIONAL) " 

300 INPUT FA 

310 IF FA=0 THEN FA=&HFFFF 
320 IF FA<0 THEN FA=65536!+FA 
330 PR I NT" ENTRE EL CODIGO A BUSC 
AR (H PARA EXPLICACIO 

N DE AYUDA) ' ( OPCIONAL)" 

340 FI*="": INPUT FI* 


350 IF LEFT$(FI$, 1)="H" THEN GOS 
UB 460 

360 IF FI*<>"" THEN FI*=FI*+" " 
ELSE LET FI*="XX" 

370 GOSUB 980 
380 PC=PC+LE 
390 PRINT A* 

400 IF MID*<A*,7,LEN<FI*> >=FI* T 
HEN GOSUB 440 

410 IF PC<FA THEN GOTO 370 
420 PRINT" FIN DEL LISTADO" 

430 RETURN 210 

440 PRINT: PRINT: LOCATE 20,19=PRI 
NT " ENCONTRADO " 

450 IF INKEY*< >" " THEN RETURN: FI 
=0: PRINT ELSE GOTO 450 
460 PRINT: PRINT" USTED PUEDE PED 
I RLE A LA COMPUTADORA BUSCAR EN E 
L LISTADO HAST A QUE EN- CUENTRE 
EL CODIGO DE MAQUINA QUE UST 

ED ESPECIFICO. ESTO PODRA DETE- * 
NERCE CON PRES I ON AR CUAL8UIER TE 




CLA " 

465 PRINT"ESTO LE PERMITIRA HACE 
R LAS ANOTACIO-NES QUE USTED DESE 
A" 

470 PRINT "EL COD I 60 QUE QUIERE 
BUSCAR DEBE SER ENTRADO EN LA FOR 
MA 21 00 D3 (RETURN) .LA COMPUTADOR 
A PUEDE ACEPTAR PARTE DEL CODIG 
0 e.g. 21 (RETURN) Y PUEDE PARAR 
EN CUALQUIER COMIENZO DE INS— T 
RUCCION COMENZANDO CON 21. 

TODOS LOS CODIGOS DE" 

475 PRINT " I NTRUCC I ONES DEBEN EN 
TRAR EN HEXA." 

480 PRINT: RETURN 330 

490 GOSUB 1210: KEY 2, " >GRABAR< " 

500 TIME=0 

510 MOTOR ON 

520 PRINT "PRECIONE -RECORD- EN 
SU 6RABAD0R" 

530 IF TIME<200 THEN GOTO 530 
540 PR I NT " AHOR A 6RAVAND0 . . . " 

550 BSAVE"CAS: Z-SO" , &HDOOO, MX 
560 PR I NT "TERN I ME. . 

570 RETURN 

580 GOSUB 1210: KEY 3, " >CARGAR< " 
590 PRINT "COMIENZE LA 6RABACI0N 

600 BLOAD"CAS:" 

610 PRINT"HECHO. . 

620 RETURN 

630 PR I NT 11 E JECUC I ON ABORTADA . . . " 

640 RETURN 210 

650 GOSUB 1210 

660 KE Y5 , " >ESCR I B I R< " 

665 PR I NT "PARA ESCAPAR DEL MODO 
ESCRIBIR, DEBERA PRESIONAR C 

TRL (RETURN) " 

670 PRINT, , "ENTRE LA DIRECCION D 
EL COMIENZO 
680 INPUT PC 

690 PRINT: PRINT "LISTO PARA IN6 
RESAR LOS DATGS-" 

700 PRINT: PRINT: PRINT 
710 CR=0 
720 LO=PC 

730 IF LO>MX THEN MX=LO 

740 IF LO>=&HFOOO OR L0<StHD000 T 

HEN PRINT "USTED TRATA DE ESCRIBI 


R FUERA DEL AREA DESPEJADA" : GO 
TO 950 

750 D*=INPUT*(1) 

760 IF DS="*" THEN GOSUB 860 
770 D*=D*+INPUT*(1> 

780 GOSUB 1150 

790 POKE LO, DA 

800 GOSUB 980 

810 LOCATE 0,20: PRINT AS 

820 IF LEOCR+1 THEN LOCATE (LO- 

PC ) *3+ 1 1 , 20 : PR I NT " < " ; 

830 CR=CR+1 

840 IF LE=CR THEN PRINT: PRINT: PR 
I NT : PC=PC+LE : GOTO 710 
850 LQ=L0+1 : GOTO 750 
860 D*=INPUT*(1) 

870 IF D$="*" THEN RETURN 710 
880 POKE PC, ASC (D$) 

890 GOSUB 980: PRINT LEFTS (AS, 8); 

" ";: PRINT" " ; DS 
900 PC=PC+ 1 : GOTO 860 
910 CLS 

920 PR I NT " ***************>|«>»c>|«*>M«:* 

stc * jf: sfc jf: 4: 4: jf. }f: 4'- 

** Z80 CARGADOR 
DE COD I 60 DE MAQUINA +* 

4c3|c4c4c}f:3|c4< 

930 PR I NT : PR I NT 5 PR I NT "USE LAS I 
ECLAS Ut FUNCION PARA CAMBI 

AR EL MODO. ASEGURESE DE ESCRI- B 
IR CON M AYUSCULAS " : PR I NT : PR I NT 
940 PR I NT "SAVE Y LOAD SON PARA G 
RAVAR EL CODIGODE MAQUINA SOL AMEN 
TE Y NO PARA LA PARTE DE BASIC 
PRINT: PRINT 

950 PR I NT "EL ESPACIO PARA COD I 60 
DE MAQUINA RESERVADO VA DESDE 
&HD000 AL &HEFFF . EN TOTAL 8K DE 
COD I GO DE MAQUINA." 

960 PRINT 
970 RETURN 
980 B1=PEEK (PC) 

990 B2=PEEK (PC+1 ) 

1000 LET AS=R I GHT S ( " 000 " +HEXS ( PC 
) , 4 ) +" " 

1010 IF HEXS (B1 ) ="DD"OR HEXS(Bl) 

-"FD" THEN GOSUB 1080 

1020 IF HEXS (B1 ) = ,, ED" THEN GOSUB 


1090 

1030 LE=L(B1) 

1040 FOR P=LE TO 1 STEP -1 
1050 AS=AS+RIGHTS ( "0"+HEXS (PEEK ( 
PC+LE— P) ) +" " , 3)‘* 

1060 NEXT P 
1070 RETURN 

1080 L(B1)=X (B2) : RETURN 
1090 FS=LEFTS (HEXS (B2) , 1 ) 

1100 SS=RIGHTS (HEXS (B2) , 1 ) 

1110 IF FS="4" OR FS="5" OR FS=" 
6" OR FS="7" THEN GOTO 1130 ELSE 
L(B1) =2: RETURN 

1120 IF FS="4" OR FS="5" OR FS=" 
6" OR FS="7" THEN GOTO 1130 ELSE 
L(B1) =2: RETURN 

1130 IF SS="3" OR SS="B" THEN L( 
Bl) =4: RETURN ELSE L (B1 ) =2: RETURN 
1150 W1=ASC (LEFTS (DS, 1) ) 

1160 W2=ASC (RIGHTS (DS, 1) > 

1170 IF W2>64 THEN W2=W2-7 
1180 IF W1 >64 THEN Wl=Wl-7 
1190 D A= W 1*1 6+ W2— 8 1 6 
1200 RETURN 

1210 KEY 1 , " READ " : KEY 2," SAVE 
" : KEY 3," LOAD " : KEY 4," CTRL ":K 
EY 5," WRITE " s KEY 6,"": KEY 7,"": 
KEY 8,"": KEY 9,"": KEY 10,"" 

1220 RETURN 

1230 DATA "131111211111112123111 
121211111212331112121311121233111 
212131112111111111111111111111111 
111111111111111111111111111111111 
11111111" 

1240 DATA "222222222222222222222 

222222222222442222222422222222233 

422222222233333333333333333333333 

333333333333333333333333333333333 

33333333" 

1250 DATA "111111111111111111111 
111111111111111111111111111111111 
11111111111 1333121 1 1323321 1 132312 

111323421113131211131342111313121 

1 1313421 " 

1260 DATA "333333333333333333333 
333333333322222222222422222222222 


22222222 " 



PROCESADOR DE 
PALABRAS 


El ingeniero C. Atashian y el 
senor A. Capo, gente de Ta- 
lent Rio Grande (Tierra del 
Fuego), a pesar de la distan- 
cia, no se olvidan de los usua- 
rios de sus computadoras ni 
de esta publicacion dedica- 
exclusivamente a ellos. 

Es asf como nos han enviado 
la siguiente carta, explicando 
su trucazo para transformar, 
con un par de lineas, a nues- 


tra computadora en un pro- 
cesador de textos. 

Rio Grande, I I de junio 
1986 

Sres. LOAD MSX: 

Para todos aquellos que no 
posean un wordprocessor o 
editor de textos les enviamos 
este programa, el cual les 
permite escribir cualquier co- 
sa en pantalia (una carta, for- 
mulario, etc.) y volcarlo 
luego en impresora (screen- 
dump) presionando solamen- 
te FI. 

Sin otro particular, saiudamos 
a Uds. atte. 

Ing. C. Atashian y Sr. A. 
Capo 

La posdata aclara que esta 
carta fue escrita por medio 
de este artilugio. 


10 KEY OFF: KEY 1 * CHR$ (30) +CHR$ ( 
13): CLS: LOCATE 0*0: LINE INPUT A* 
20 DEFINT A-Z: FOR F=Q TO 23: FO 
R C=0 TO 39: LPRINT CHR* ( VPEEK (F* 
40+0 ) - : NEXT : LPRINT CHR$ ( 13) : NE 
XT: LOCATE 0*22 


Inverse video 

Los caracteres tienen un co- 
lor de fondo y otro de frente 
o tinta. Con la instruccion 
COLOR 15,1 pedimosqueel 
color de frente sea blanca y 
el de fondo negro; pero des- 
pues de ejecutar el progra- 
ma de la figura cinco, el 
color de frente sera negro y 
el de fondo obviamente bian- 
co. De manera que el pro- 
grama invierte los colores 
de los caracteres. 

Se puede cambiartodos los 
caracteres o solo un par de 
ellos. Para seleccionar al- 
guna de las dos formas, 
cuando el ordenador nos 
pregunta "CARACTER A 
CONVERTIR", debemos 


contestar con "TODOS" c 
presionar la tecla que que- 
remos cambiar. 

Si entramos "TODOS", no 
interrumpamos la ejecu- 
cion del programa pensan- 
do que la maquina volvio a 
tomarse un descanso dejan- 
donos sentados en el ban- 
quito de espera. Pasaran va- 
rios segundos hasta que ha- 
ya solucionado la mision 
que le encomendamos. A 
medida que se produzcan 
las conversiones, los carac- 
teres de la pantalia aparece- 
ran cambiados. 

Ahora podemos obtener un 
INVERSE VIDEO para todos 
los caracteres o solo para 
una parte de ellos. 


40 SCREEN 1 
50 CLS 

ou I NPUT '* CARACTER A CONVERT IR" ; A$ 

70 IF Af-= " rot <0S " OR A*=" todos" THEN Y=0: L=2048s TIME=0: GOTO 90 

SO Y= ASC ( A * > +3 : L= Y+ 7 

90 FOR I=Y TO L 

100 IF I —256 THEN 1=264 

110 D*®" 00000000" 

120 F$=RlGHT$<Ds*+BIN$(VFEEL(I>) ,3) 

130 FOR B= 1 TO 8 

140 ( B ) =M I D4 1) 

150 IF V$ (B) ="0" THEN V* (B) =" 1 " : GOTO 170 
160 “IF THEN V4(Et)="0" 

170 NEXT B 

ISO 6*=y* ( L » +V'^ ( 2 « 3 > + V* ( 4 > +V* (5) +V* < 6) +V« (7 ) +V* (8) 

1 90 VF'OKE I , V AL < " OB " +6^ ) 

200 NEXT I 

21 •. PR I NT T I NE : INPUT " OTRO ( s/n ) " ; S4 
220 IF S5 = ,, S” OR S4="s’* THEM 50 ELSE END 


MACRO LENGUAJE 


ALTA RESOL UCION 

Aprendamos a aplicar todas las 
fadlidades gtaficas que tiene 
nuestra computadora y veamos 
algunos ejemplos. 


que nos permitiran dibujar. 

Si queremos grafica r en alta resolucion 
(modo 2) hay que declararlo al princi- 
pio del programa con la instruccion 
SCREEN seguido por el numero del mo- 
do donde queremos trabajar. Por ejem- 
plo SCREEN 2. 



ay cuatro modos distintos de 
pantalla,dos para textos y dos 
para graficos. Pero ^para que 
dos de cada uno y no menos? 

Como dijimos, los cuatro tipos de pan- 
talla son diferentes, el modo 0 es de tex- 
to y permite escribir 24 tineas de 37 
caracteres cada una; mientras que el 
otro modo de texto, el uno, admite 24 
lineas de 29 caracteres cada uno. Enton- 
ces notemos que la capacidad del modo 
I es menor que la del 0. Por eso decimos- 
mos que el modo I es de baja resolu- 
cion para textos. 

Y para graficos, el modo 2 es de alta re- 
solucion porque se pueden ubicar 192 
filas y cada una contiene 256 “pun- 
titos”. 

El nombre “puntitos” no es el correc- 
to, en realidad se denominan pixels. Un 
pixel es la unidad mas pequena de una 
pantalla de video. El termino pixel co- 
rresponde a PIX de picture (dibujo, cua- 
dro) y EL de element (elemento), o sea 
elemento de la imagen. 

El ultimo modo, el tres, corresponde a 
graficos pero tiene la posibilidad de po- 
sicionar solamente 48 filas por 64 pixels 
cada una. Las filas en los modos grafi- 
cos tambien son pixels. 

Observemos que para los modos de tex- 
tos hablamos de capacidad de caracte- 
res, mientras que en los graficos 
destacamos la cantidad de pixels que en- 
tran por pantalla. 

Figura 1 



Pixel 


Cada caracter esta formado por pixels, 
como se ve en la figura uno. Si nos en- 
contramos trabajando en el modo 0, ca- 
da caracter se identifica por 5 pixels 
horizontales y 7 verticales. En cambio 
en el modo de texto I , los caracteres 
estan definidos por 8 pixels verticales y 
8 horizontales. 

Para grafica r, es necesario trabajar en 
cualquiera de los modos dos o tres. 
Para el tipo de alta resolucion grafica, 
la pantalla esta cuadriculada como se 
muestra en la figura 2. La figura tres re- 
presenta la division de video para el mo- 
do 3, de baja resolucion grafica. 

A pesar que los modos dos y tres son 
para dibujar, tambien es posible escribir 
en ellos, pero no con la instruccion 
PRINT directamente. 

Hay que agregar la sentencia OPEN 
“GRP:” AS# I al principio del progra- 
ma e incorporarles a las instrucciones 
PRINT el simbolo numeral seguido por 
el I . Entonces las instrucciones para es- 
cribir serian de esta for: PRINT# I, 

It M 

Pero llego ei momento de ver detalla- 
damente cada una de las instrucciones; 


PSET 


Esta sentencia es simple porque tiene la 
forma: PSET (X,Y), color. Esta orden 
pinta el pixel ubicado en la columna X, 
fila Y —ver figura 4 para ver cuales son 
las filas y cuales las columnas— . 

El parametro color no es obligatorio es- 
pecificarlo. En este caso la compuado- 
ra —el sistema— pintara el pixel con el 
ultimo color declarado. 

El punto a partir del cual se cuentan las 
posiciones, es el vertice superior izquier- 
do. Entonces este vertice es el que tie- 
ne valor cero para X y cero para Y. 
Si entramos la instruccion PSET 
( 1 50, 1 50), 8 visualizaremos un punto 
pintado de rojo en la columna 1 50, fila 
1 50. Y si entramos PSET (2,4) veremos 
el pixel de la segunda columna, cuarta 
fila, pintado tambien de rojo porque co- 
mo dijimos antes, utiliza el ultimo color 
declarado. 

En cada uno de los casos que vimos an- 
teriormente, la computadora utiliza co- 
mo punto de referencia el (0,0), o sea 


Figura 2 
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Ffgura 3 
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Figura 4 
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Figura 5 


10 SCREEN 2: COLOR 1,1,1 
16 COLOR 15,1 
20 X«INT(RND(1)*14>+1 
30 F=INT(RND<1>*254> : C=INT(RND( 
1>*191) 

40 PSET <F, C) , X 
50 60T0 20 


Figura 6 


*1 




Figura 7 


se desplaza hacia la derecha (desde el an- 
gulo superior izquierdo) 1 50 pixels y a 
partir de ahi, baja 1 50 posiciones. Esto 
es para el primer ejemplo, para el segun- 
do, vuelve a tomar como referencia el 
cero, cero y se desplaza 2 pixels para 
la derecha y 4 para abajo. 

Si en cambio agregamos la palabra STEP 
de la siguiente manera: “PSET STEP 
(X,Y), color” entonces pintaremos el 


Figura 8 


10 

SCREEN 2 


20 

FOR 1=1 TO 200 STEP 

10 

30 

FOR C=1 TO 100 STEP 

10 

40 

T=INT<RND<1>*15) 


50 

T=T+1 


60 

BEEP 


70 

LINE ( I ? 0) — (C? 190) ,T 


80 

NEXT C,I 


90 

GOTO 90 



Figura 9 


10 SCREEN2 

20 LINE (61,4)-(150, 150) SLINE -( 
5, 60) s LINE -(60,4) SPAINT (70,70) 
30 SOTO 30 


Figura 10 


10 SCREEN 2 s OPEN “ GRP : “ AS# 1 
20 FOR 1=230 TO 0 STEP -5 
30 1=1+1 

40 C=INT(RNB<1)*15) 

50 PSET (100, 1+20) 

60 LINE- (1-30, 100) , 15 
70 PRESET ( 1 50 , 70 ) = PR I NT# 1 , “ LOAD " 
80 PRESET (60, 150) =PRINT#1, “MSX" 
90 NEXTI 

100 FOR 1=0 TO 230 STEP 5 
110 PSET (100, 1+20) 

120 LINE- (1-30, 100) ,C 
130 NEXT I 
140 GOTO 140 


pixel que se encuentre X lugares hori- 
zontales e Y verticales del ultimo pixel 
ubicado. Por ejemplo PSET (10,10) pi- 
na el pixel de la decima columna, deci- 
ma fila y si a continuacion entramos 
PSET STEP (-3,3), pinta el pixel de la 
septima columna, fila 1 3 del mismo co- 
lor que el anterior. 

Como demostramos con este ejemplo, 
los valores de X y de Y, pueden ser tan- 
to positivos como negativos. 

Se pueden escoger cualquiera de los 16 
colores disponibles para pintar los pun- 
tos, pero si lo hacemos con el transpa- 
rente (cuyo codigo es cero), no po- 
dremos visualizar la operacion. O sea 
que el codigo de color cero Simula es- 
cribir con tinta invisible. 


Figura 11 



En la figura cinco, ese listado marcara 
puntos en cualquier lugar de la pantalla 
con diferentes colores. 


POINT 


Con esta instruccion podemos saber de 
que color esta pintado un pixel deter- 
minado. Y se utiliza de la siguiente for- 
ma: POINT (X,Y). Veamos un ejemplo: 
POINT (10,10) que nos devolvera un 
ocho si este “puntito” estaba pintado 
de rojo mediano. 

Esta sentencia tambien se puede utilizar 
con el STEP. 


PRESET 


Se emplea para cambiar el color del pi- 








Macro lenguaje 


Figura 12 


10 SCREEN 2= COLOR 8?1?1 
20 CIRCLE ( 100? 100) - Fi O 
30 PAINT ( 100? 100) ? 8- 4 
40 GOTO 40 


Figura 13 


10 SCREEN 3= COLOR 8?1?1 
20 CIRCLE ( 100? 100) ? 50 
30 PAINT (100, 100) ?4?8 
40 GOTO 40 


Figura 14 

10 SCREEN 2: COLOR 11?1?7 
20 PAINT (255? 96) ? 1 
30 DEF FNR(X)=4*ATN(1) 

40 FOR T=0 TO 90 
50 TIME=0 
60 A=T/30*FNR(A) 

70 X=128+80*C0S ( A) 

80 Y=96+80*SIN(A> 

90 BEEP 

100 LINE ( 1 28 ? 96 ) — ( X ? Y ) 

110 NEXT T 

120 LINE ( 128? 96) — ( X ? Y) 

130 OPEN "GRP: " AS#1 
140 PRESET (118? 93) 

150 COLOR 1 

160 PRINT #1 ? "MSX " 

170 LINE (32? O) — <223? 191) ? 12?B 
180 PAINT (1, 1) ? 12 
190 PAINT (255? 1 ) ? 12 
200 GOTO 200 


xel especificado en la instruccion. La for- 
ma es PRESET (X,Y), color. Aqui el 
color tampoco es obligatorio y STEP 
tambien es utilizable de la misma forma 
que en la orden PSET. 


LINE 


Con esta instruccion se trazan lineas o 
rectangulos. Primero veamos como se 
hacen las lineas. 

La forma LINE (XI.YI) - (X,Y), co- 
lor, tipo de dibujo. 

El parametro “tipo de dibujo” puede ser 
B o BF (mas adelante veremos para que 
son estos parametros) y no son obliga- 
torios. 

Al obviarse este parametro, el sistema 
dibujara lineas. Veamos la figura seis para 
entender las posiciones que representan 
X,, Y|, X e Y. Como podemos obser- 
var, LINE une los puntos (X,,Y,) con el 
(X,Y). Si no le damos valores a los dos 
primeros, entonces uniremos el ultimo 
punto al que tuvo acceso el sistema con 
el punto (X,Y). Para esto, la orden es 
LINE - (X,Y). Pero si declaramos como 
tipo de dibujo: B, entonces dibujara un 
rectangulo cuya diagonal es la linea que 
une los puntos (X,,Y,) con (X,Y) como 
se observa en la figura 7. 

Pero supongamos que queremos pintar 
el rectangulo, esto se podria efectuar 
pintando pixel por pixel, con las instruc- 


Figura 15 



ciones que vimos antes, pero desde el 
BASIC esto tardara demasiado. Si en la 
sentencia LINE le damos el parametro 
“tipo de dibujo”, el valor BF, en reali- 
dad estamos ordenando dibujar un rec- 
tangulo (como vimos antes) y ademas 
pintarlo. 

Al igual que en todas las sentencias para 
graficar, se puede utilizar el STEP y de 
la misma forma. 

Programemos un ejemplo: como podria 
ser trazar lineas desde la fila de pixels 
superior hasta la fila 1 90. Pero tratemos 
que las lineas no sean perpendiculares si- 
no oblicuas. Entonces lo graficaremos 
con LINE (1,0) - (C,I90) donde I y C 
crecen. Para incrementar estas dos va- 
riables, podemos emplear dos sentencias 
FOR, con distintos topes. Como por 
ejemplo FOR 1 = 0 TO 200 STEP 10 y 
otra FOR C = 0 TO 100 STEP 10. Las 
dos sentencias incrementaran los valo- 
res de I y de C de diez en diez hasta que 



la posibilidad de escribir con tinta trans- 
parente (color de codigo 0). Pasemos 
en limpio todas estas sentencias copian- 
do el listado- de la figura 8. 

Con LINE tambien podemos dibujar 
triangulos como se muestra con el lis- 
tado de la figura 9. 

El listado de la figura 1 0 es un poco mas 
interesante y aplica todas las instruccio- 
nes que vimos hasta ahora. No explica- 
mos este programita porque lo dejamos 
como ejercicio para el lector pues no 
hemos ingresado ningun conocimiento 
nuevo. 


PAINT 


Se utiliza para pintar regiones. Tiene la 
forma: PAINT (X,Y), color de superfi- 


Figura 16 


90° = 1,57 rad 

90° = 1,57 rad 

{"t 4-0° = 0 rad 

1 (x / lo- = Orad 

CIRCLE (x,y),r„1,57 

CIRCLE (x,y),r„0,1,57 

/ “ N s 

90° = 1,57 rad 

/^r\ 

/ \ 

180° = 3,14 rad -r , ^f0° = 0rad 

VfcyT/ 

180° = 3,14 rad + +0° = 0 rad 


270° = 4,71 rad 

CIRCLE (x,y),r„3,14 

CIRCLE (x,y),r 


I alcance el valor 200 y C el 100. Seria 
interesante pintar cada linea de un co- 
lor diferente y aleatorio. Sabemos que 
los codigos de colores varian entre 0 y 
I 5. La funcion RND( I )* I 5 genera nu- 
meros al azar entre 0 y 14, en conse- 
cuencia si le sumamos I al resultado, 
obtendremos entre I y 1 5 salvando asi 


cie, color de borde. Hay que indicarle 
a la computadora que region queremos 
colorear y para eso, X e Y es un punto 
dentro de la zona que queremos pintar. 
En la figura I I mostramos que si el pun- 
to se halla en el interior del circulo, en- 
tonces se pinta la superficie del mismo. 
En cambio, si el punto es externo a la 







Figura 18 

10 SCREEN 2: COLOR 6,15,6: CLS 
20 S=50 

30 FOR R=0 TO S STEP 2: GOSUB 70 
: GOSUB 90= GOSUB 110 
40 CIRCLE ( RND ( 1 ) *250 , RND ( 1 ) *190 
) ,R,RND< 1)*15, .3,3.1, 1 .4 
50 NEXT 
60 GOTO 60 

70 CIRCLE (RND ( 1>*250, RND (1)*190> 
,R,RND(1)+15, ,,1.4 
80 RETURN 

90 CIRCLE (RND ( 1 ) *250, RND ( 1 > *190) 
, R, RND ( 1 ) *15, , ,2.8 
100 RETURN 

110 CIRCLE (RND ( 1 ) *250, RND ( 1 ) *190 
> ,R,RND(1)*15, , , .2 
120 RETURN 


Figura 19 


10 CL=RND ( — T I ME ) 

20 COLOR 14,0,0 

30 SCREEN 2: CLS 

40 S= I NT ( RND ( 1 ) *22 ) +8 

50 XX=RND ( 1 ) *100 

60 YY=RND ( 1 ) *100 

70 CO=RND ( 1 ) *100 

80 A=RND<1 >*40+13 

90 FOR X=A+1 TO 125 STEPS 

100 CL=INT (RND ( 1 > *13) +2 

1 10 V=ABS (SIN (X/XX) *TAN (X/YY) *C0 

S(X/CO> > 

120 C I RCLE ( 1 28 , 96 J , X , CL , , , V 
130 CIRCLE <128, 96), X-A, CL,,, V 
140 IF V>1 THEN IF 96-A/2+X>191 
THEN PAINT (128, 191 ), CL: PAINT ( 128, 
O) , CL ELSE PAINT < 128, 96+X-A/2) , CL 
: PAINT ( 128, 96— X+A/2) ,CL ELSE PAI 
NT ( 128— A/2+X, 96) , CL: PAINT ( 128+A/ 
2— X , 96) , CL 
150 NEXT 

160 FOR X=1 TO 4000: NEXT: IF RN 
D ( 1 ) >1 .5 THEN 40 ELSE 30 


figura, se colorea el complemento de la 
misma. Si no te interesa saber como tra- 
baja este comando, segui el siguiente pa- 
rrafo. PAINT va pintando pixel por pixel 
sobre la misma fila que Y hasta encon- 
trar un pixel pintado con el color que 
se especifica en color de superficie. Si 
este parametro no se declara, el siste- 
ma tomara como referencia al ultimo 
codigo de color declarado. Una vez que 
encontro los limites, se va corriendo ha- 
cia arriba y hacia abajo del punto (X,Y), 
fila por fila. Y en cada fila se vuelven a 
buscar los limites de la misma forma que 
explicamos arriba. 

Cuando trabajamos con SCREEN 2, al- 
ta resolucion, el color de borde es ig- 
norado. En cambio en el modo de 
pantalla 3, se puede pintar las superfi- 
cies de un color y los bordes de otro. 
A pesar que los listados de las figuras 1 2 
y I 3 son semejantes, los resultados di- 
fieren porque un programa trabaja en 
alta resolucion y el otro en baja. 

El listado de la figura 14 es un ejemplo 
de los graficos que se pueden realizar 
con la sentencia que acabamos de ver. 


CIRCLE 


Dibuja circulos, arcos y elipses. Es de la 
forma CIRCLE (X,Y), radio, color, an- 
gulo inicial, angulo final, razon axial. 

El punto (X,Y) representa al centro de 
la circunsferencia, veamos la figura I 5. 
El circulo se dibujara en sentido contra- 




Figura 20 


Figura 21 


rio al de las agujas del reloj. El angulo 
inicial y final marca los limites del arco 
a graficar. Pero los angulos no estan ex- 
presados en grados sino en radianes. Pe- 
ro esto no significa demasiadas 
complicaciones, porque para pasar un 
angulo de grados a radianes basta con 
multiplicar los grados por 3. 1 4 y dividirlo 
por 180. En la figura 16 marcamos al- 
gunos ejemplos. 

Faltaria ver que es la razon axial. Esta 
razon mide cuan achatada o alargada es 
la elipse con respecto al circulo que se 
formaria con el radio. Esta razon esta 
dada por la division entre la proporcion 
del radio vertical que queremos achicar 
o agrandar y el radio horizontal. En la 
figura 17 mostramos ejemplos. 

Esta instruccion tambien permite usar el 
STEP y se coloca entre la orden CIR- 
CLE y el punto (X,Y). 

Programemos un ejemplo que grafique 
toda clase de circulos, elipses y arcos al 
azar en cualquier lugar de la pantalla y 
con distintos colores. Esto puede pare- 
cer complicado, pero es muy sencillo, 
veamoslo. 

La primera instruccion que debemos en- 
trar, es declarar el modo de alta reso- 
lucion, o sea SCREEN 2. Para obtener 
cualquier valor de X entre 0 y 250 use- 
mos: RND( l)*250 y para los valores 
aleatorios de Y : RND( I )* I 90. Si que- 



remos elegir cualquier color tambien al 
azar, lo obtendremos con : RND(I)*I5. 
Y para tener distintos angulos iniciales 
y verticales declaramos: RND(I)*6 que 
generara angulos en radianes entre 0 y 
6, que equivaldria mas o menos a angu- 
los entre 0 y 360 grados. 

Pasemos en limpio lo que acabamos de 
comentar y copiemos el listado de la fi- 
gura 18. Como programa demostrati- 
vo de otros efectos, tipiemos el listado 
de la figura 19. 

DRAW 


Se utiliza para graficar pero emplea un 
lenguaje particular. 

En la figura 20 se puede ver que letra 
le corresponde a cada direccion. Enton- 
ces U 1 0 marcara diez pixels hacia arri- 
ba del ultimo punto dibujado y F20 
bajara en diagonal 20 posiciones. 

Si queremos dibujar un triangulo aplican- 
do esta sentencia, primero ubiquemos 
el punto inicial con PRESET (120,50) y 
color verde mediano, luego bajemos en 
diagonal hacia la izquierda 100 posicio- 
nes con G 1 00, movamosnos hacia la de- 
recha 200 pixels con R200 y por ultimo 
subamos en diagonal y hacia la izquier- 
da 100 puntitos usando HI 00. Con es- 
tos movimientos hemos dibujado un 
triangulo (ver figura 21) que como ins- 
truccion seria: DRAW “GI00R200HI00”, 
notemos que los movimientos se colo- 
can entre comillas y todas a conti- 
nuacion. 

Pero hay muchas opciones aplicables con 
el DRAW: 

- M X, Ys dibuja lineas. Une el ulti- 
mo pixel ubicado con el punto (X,Y). 
Si agregamos un signo “ + ” o un 
adelante de los valores de X o de Y, en- 


Figura 23 


10 SCREEN 2: COLOR 2,1,1 10 SCREEN 2: COLOR 2,1,1 

20 PRESET (100, 100) ,2 20 PRESET ( 100, 100) , 2 

30 A*= " C2D50E80H50G 1 40R 1 20F60H 15 30 A*= " C2D50E80H50G 1 40R 1 20F60H 1 5 

0 “ 0 “ 

40 DRAW " XA$; " 40 DRAW “XA$;" 

50 GOTO 50 50 GOTO 50 
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Figura 24 


10 z=o 

20 SCREEN 2 
30 COLOR 15,1,1 
40 X=INT<RND<1)*128>*2 
50 Y=INT(RND(1)*96)*2 
60 C= I NT ( RND < 1 ) * 1 5 ) 

70 PSET ( X , Y) , C 

80 DRAW “U100R120D100L 120" 

90 PAINT < X+2, Y-2) ,C 

100 0=C— 45 IF 0<0 THEN 60 

110 A=INT<RND<1)*230> 

120 B= I NT < RND < 1 ) * 1 70 ) 

130 R=INT<RND<1)*50> 

140 CIRCLE <A, B> , R, Q, , , 1 .5 

150 PAINT (A,B) ,0 

160 Q=C-8: IF Q<0 THEN 60 

170 PSET ( A? Y) , Q 

180 DRAW '* R 1 00H50G50 " 

190 PAINT < A+25, Y-5> , Q 
200 Z=Z+1=IF ZOIO THEN 40 
210 60T0 10 


tonces se realizaran los movimientos re- 
latives de dichas coordenadas. Por 
ejemplo, si tenemos M 4 - 1 00,50 se mo- 
vera 1 00 columnas de pixels contando 
desde la ultima que se marco un punto 
y 50 pixels contando desde la ultima que 
se marco un punto y 50 pixels contan- 
do desde el (0,0). Este ultimo punto al 
no tener signo es contado desde el ori- 
gen. Si los signos son positivos quiere de- 
cir que X e Y aumentan. En cambio si 
son negativos, disminuyen. 

— Cn: pintara con el color que se de- 
clara con n, siendo n un codigo de co- 
lor. C2 pintara en verde claro. 


— B: mueve pero sin dibujar. Esta let- 
gra debera colocarse delante del movi- 
miento que querramos efectuar. 
DRAW “BR50” se desplazara 50 luga- 
res a la derecha sin dibujar. 

- N: mueve y regresa al punto donde 
se encontraba antes de mover. 
DRAW“R50NU20” dibujara 50 puntos 
para la derecha, desde ahi sube 20 y ba- 
ja para volverse a ubicar en la misma po- 
sicion. 

— An: indica cuantos grados se rotara 
la figura. En este caso “n” puede ser un 
valor entre cero y tres. La figura 22 
muestra que para girar una figura 90 gra- 
dos hay que colocar A I , pero para gi- 
rarla 270 se escribe A3. 

- Sn: es el factor de escala con que 
queremos agrandar o achicar el dibujo. 
“n” puede ser un valor entre 0 y 255. 
La division n/4 indica el factor de esca- 
la. Si n = 8 entonces el dibujo sera el do- 
ble del que se dibujaria comunmente. 
(8/4 = 2) 

En vez de escribir todas las opciones 
dentro de la sentencia DRAW, se pue- 
den declarar aparte en una variable al- 
fanumerica y luego agregarsela a la 
orden de dibujar. Esto se demuestra en 
la figura 23. Si observamos los dos lista- 
dos notaremos que delante de la varia- 


ble se coloca la letra “X”. 

Para tratar variables en esta sentencia 
de dibujo, primero se declara la varia- 

Figura 25 

10 SCREEN 2 
20 FOR 1=1 TO 190 
30 FOR C=1 TO 190 
40 1= I NT ( RND ( 1 ) * 1 90 ) 

50 C=C+1 

60 ' T= I NT < RND (1)*15)+1 
70 PSET (C+20, 1+20) 

80 LINE- (C, I) ,T,BF 
90 PSET (100, 100) 

100 LINE— (C,I>,1 
110 NEXT C,I 
120 GOTO 120 


ble y luego la utiliza con DRAW de la 
siguiente manera: 

VAR= 183 

DRAW‘‘U50R = VAR;L50” 

Las variables se separan con y se 
agrega el signo “ = ” antes de colocar 
la variable. 

En el listado 24 usamos todas las opcio- 
nes que explicamos, y en la figura 25 ve- 
mos un ejemplo con muchas de las 
utilidades que se pueden aplicar para gra- 
ficos MSX. 



Qritica de Libras 


STEVE WEBB 


Este libro supone que el lector no 
posee conocimientos previos sobre el 
codigo de maquina. Comienza expli- 
cando las equivalencias en codigo ma- 
quina de las principales instrucciones 
BASIC, tales como IF, FOR/NEXT, 
PRINT, GOTO, GOSUB, etc... 
Continua con la explicacion detallada 
de las rutinas individuales de un sim- 
ple juego: "INVASORES DEL ESPA- 
CIO", y como se enlazan estas para 
aprovecharlas en programas BASIC. 
Tambien hay, a lo largo del libro, nu- 
merosas preguntas que autoevaluan 
nuestros conocimientos sobre la pro- 
gramacion en lenguaje Assembler. 

Se trata de una informal y divertida for- 
ma de aprender un tema que puede 
resultar escabroso y decepcionante. 
Es una buena opcion para aquellos que 
nunca hayan tenido relaciones con es- 
te asombroso lenguaje. 


Steve Webb 


MA 


CODIGO MAQUINA 

PROGRAMACION PRAGTICA 


Codigo maquina. 


Programacion practica 





Dentro del Club de Usuarios MSX ya 
funciona un nuevo sistema para adquirir 
programas. Cuando el socio envie el 
programa, este sera evaluado por su 
originalidad, calidad grafica y sonora, 
velocidad de ejecucion, estructuracion del 
programa y otros atributos que hacen a 
la calidad del diseno. 

Una vez determinado el valor del 
programa (por puntos), el autor podra 
intercambiarlo por algun otro (del mismo 
puntaje) que figure en la lista. 

Esta modaiidad de intercambio, hara que 
se vaya incrementando dicha lista. 

INTERCAMBIO ENTRE 
SOCIOS 

Cerillas para varios 
Calendario perpetuo 
Batalla naval 
Golf 
Solfeo 

El juego del 2 1 

Par - Impar 

Adivinar una cifra 

El juego de witthof 

Rebotes 

Jackpot 

Ruleta 

Pasillos 

El juego del haba 
Juego de la oca aleatorio 
Dimensionamiento de una 
tabla 
Cadena 

El electricista loco 
La carrera al 20 
Musica 
Poker 

El juego de la pidola 
Letras 

Maquina de palabras 
Espia 

Juego de la loteria 

Tirada de un dado trucado 

El juego de marienbad 

Componer 

Di'a de la semana 

Juego de cartas 

El indeseable 

El juego de la vida 

El ahorcado 

Belote 

Un calculo fastidioso 
Ahorcado al reves 



Nicomaque 

Palabras 

Permutaciones 

La diana de Robin Hood 

Adivina el Numero 

El gorila matematico 

Minotauro Mastermind 

Minotauro Mastermind Jr. 

Disenos 

Cocodrilo 

Convoy 

Dragster 

Batalla laser 

Invasion de robots 

O.V.N.I. 

Ataque astral 

Las cucarachas cosmicas 

Concentration 

Test de inteligencia 

En busca del tesoro 

Treinta y una 

Acrobata aereo 

El saltarin del rio 

Emboscada de tanques 

Bridge 

Hanoi 

Carrera de cabal los 

Enganchar los vagones 

El lobo y los corderos 

Combate aereo 

Caza del submarino 

Eljuego del misil 

El mono 

Destreza 

Submarino 

Zombies 

Calculadora 

Pizarra magica 

Evasion 

Reloj 2 


Repeticiones 
A traves 

El lagarto de Alicia 
El juego del 1 5 
Tic Tac Toe 
Carrera de coches 
Peligro espacial 
Anagramas 
Huevos 

Revoltijo de letras 
Obstaculos 

Capturas en el espacio 
Varios en uno 
Pared de ladrillos 
Othello 
Damas 

De cuatro en cuatro 
Ajedrez 
La Gallina ciega 
Codificador de resistencias 
Satelite espacial 
Salta cubos 
Graficos aleatorios 
Lapiz msx 

Caracteres especiales 
Gestion de datos y de 
discos de larga duration 
Calendario 
Diagrama de barras 
Tablas deportivas 
Hollow - el juego de las 
cerezas 
Reaction 

Descifrador de codigos 
Espanta intrusos 
Hagamos musica 
Objetivo: Nueva York 
Indianapolis 
Breakout 
El archivo en casa 
La entrella de la Muerte 
Alienigenas del espacio 
Como disenar un sprite 
Solfeo 
Cross 

Curso de mecanografia 
Rescate aereo 
Caseta de tiro 
Globos 
Harrier 

Naves secretas de 

investigation 

Planetoide 

Prueba de futbol 

Editor grafico 

Editor de sonido 

Graficos 

Tron 

El borra 

Matematicas 

Poker 

Disenador de sprites 
Artista 
Cavernous 
Pareja 



CREATIVIDAD: 9 
PRESENTACION: 6 
ATRACCION: 9 
GRAFICOS: 8 

SON I DO: 9 

TIRO: ENTRET. 
PRODUCE: BITGAME 


e trata de un pinguinito muy simpatico que 
I recorre la Antartida. Durante el trayecto, 
tiene que recoger la mayor cantidad de pe- 
ces que sea posible para poder alimentarse. 

Tiene un tiempo limiado para recorrer el camino entre 
estacion y estacion de este continence frio. Cada esta- 
cion pertenece a una colonia antartica diferente. 


A VENTURE 

ANTARTIC 



Si cae en un pozo perdera tiempo y lo mismo sucede si 
choca contra una foca. 

Este entretenimiento sale de lo comun porque nadie co- 
me a nadie ni hay matanzas como suele suceder en la ma- 
yoria de los juegos. 

Es un pasatiempo inofensivo y tierno. 

Si queremos tomar velocidad, hay que avanzar, pero caer 
en los pozos implicara disminuir la rapidez. 

Este simpatico pinguino, al llegar a la estacion antartica, 
nos saludara y seguira el recorrido senalado en el mapa 
que aparece al comienzo de juego. 

Es muy dificil que nos cansemos de usar este programa 
porque tiene varios niveles y seguramente nadie parara 


hasta saber que nos encontraremos en el ultimo. 

Para dificultarnos las cosas, a medida que pasamos esta- 
ciones, el tiempo para jugar es menor. 

Tiene una pequeha demostracion que nos facilitara en- 
tender como se juega. 

El programa nos permite usar las tedas de cursor o los 
joysticks. 

Estan cuidados todos los detalles como bigotes en las fo- 
cas, peces saltarines con movimiento, nubes, y lo mas 
atractivo, una musica muy parecida a la de los organitos 
antiguos. 

Pero no hemos podido averiguar que busca este simpati- 
co personaje por la Antartida. 



MAPPY 


CREATIVIDAD: 8 
PRESENTACION: 7 
ATRACCION: 8 
GRAFICOS: 9 
SON I DO: 8 
TIPO: ENTRET. 
PRODUCE: BITGAME 


. — iMB appy es el nombre de un elefante que de- 
• ■] | bera recoger la maxima cantidad de obje- 
1 tos de una casa como radios, muebles y 
otros aparatos. 

Hay puertas que las tendremos que abrir para poder pa- 
sar, eso lo conseguimos presionando la barra de espacio 
o el boton de disparo del joystick, depende con que 
juguemos. 

Hay algunas puertas que al abrirlas, el elefante grita y con 
eso mata a los ratones. 



Las sogas haran que subamos pisos ya que a la casa se 
olvidaron de fabricarle escaleras. 

Pero si saltamos mas de tres veces seguidas sobre estas 
sogas, se romperan y caeremos perdiendo una vida. 
Hay muchos ratones que perseguiran a Mappy, si consi- 
guen alcanzarlo, Mappy morira de susto porque les tie- 
ne panico a los ratones. 

Entre todos los ratones hay mezdado tambien un gato, 
que si se encuentra en alguno de los objetos que tiene 
que recoger el elefante, sera inofensivo. Entonces Mappy 
podra tomar dicho objeto y sumar mas puntos. 

En el nivel siete, apareceran muchos ratones y todos son 


muy veloces, mas que el elefantito. En el siguiente nivel, 
el piso se rompe por secciones y esto producira graves 
consecuencias porque no nos permitira volver a pasar 
por esas zonas. 

La barra de los costados nos protegen de salir de la casa. 
Si llegaramos a saltar cuando no estan dichas barras, per- 
deremos una vida. 

Cuando los objetos titilan, es la oportunidad de juntar 
mas cantidad de puntos. 

El diseho de cada nivel es variado, y la musica de fondo 
es tan entretenida que pasaremos varias horas frente a 
este juego antes de abandonarlo. 


Pag.^32 




CREATIVIDAD: 5 
PRESENTACION: 6 
ATRACCION: 7 
GRAF! COS : 7 
SONIDO: 6 


TIPO:ENTRET. 


PRODUCE: BITGAME 


ste juego esta dirigido para aquellos jugado- 
res que le gusten las aventuras espaciales 

a g res ' vas - 


Se trata de una nave que debe destruir todo tipo de ob- 
jetos extranos como misiles, bases enemigas, ramifica- 
ciones de frutas, vampiros extraterrestes y bolas de 
fuego. 

Tambien hay tanques de gas oil y al destruirlos, abaste- 
ceremos a nuestra nave. 

La batalla tiene varios escenarios que puden ser en pla- 
netas, tuneles, cuidades, cavernas, laberintos, o con aero- 
pianos enemigos que nos dispararan. 

Los graficos no son demasiado originates, pero son 
agradables. 

Tiene algunos efectos que nos marearan y no sabremos 
por donde anda nuestra nave. 


STAR AVENGER 



El sonido se escucha durante el juego, pero tiene una op- 
cion que permite eliminarlo. Si presionamos “P”, pro- 
duciremos una pausa durante la ejecucion del programa. 
La nave se maneja con elteclado, y no tiene la opcion 
joystick. 


La teda “R” mueve la rrave hacia arriba, “V" la baja, 
"H” retrocede la nave y “K” la adelanta. 

Pero insistimos que se trata de un entretenimientc muy 
agresivo, que poco sale de lo comun de los jup ; os de 
masacres espaciales. 


MONKEY ACADEMY 


CREATIVIDAD: 9 
PRESENTACION: 6 
ATRACCION: 7 
GRAFICOS: 9 
SONIDO: 8 
TIPO: EDUCATIVO 
PRODUCE: BITGAME 



ste gracioso entretenimiento consiste en un 
mono que debera responder correctamen- 
te las operaciones matematicas, pero sera 
perseguido por un cangrejo que intentara atraparlo con 
sus afiladas pinzas. Para defenderse de ataque del can- 
grejo, el mono dispone de frutas. 

Para tomar las frutas debera ubicarse debajo de alguna 
y saltar, lo mismo se hace si quiere bajr las cortinas para 
ver si el resultado que busca se encuentra en ese lugar. 
Para disparar la fruta contra el perseguidor, tambien se 
debera saltar y de esa forma la fruta que hayamos reco- 
lectado sera lanzada. 

Una vez que hayamos encontrado la cortina que tiene 
el resultado, presionamos la teda de SELECT y caera un 
lapiz. Este debe ser llevado al mono que aguarda impa- 
ciente en la parte superior de la pantalla, para que lo ubi- 
que en el casillero correcto. 



Hay varios niveles de dificultad, y en cada uno varia el 
escenario siendo en algunos casos bastante dificil llegar 
hasta el otro mono que nos espera. 

En el nivel uno y dos, las operaciones son relativamente 
sencillas, mientras que en los niveles superiores las cuen- 
tas se complican hasta tener que resolver ecuaciones con 
parentesis. 

Este juego es ideal para poder adquirir rapidez en calcu- 
los mentales. 

Durante todo el juego una musica suave y entretenida - 
nos acompahara. 


No se aceptara que erremos mas de tres veces las res- 
puestas de las cuentas, si esto sucede, perderemos el tur- 
no. Y al llegar a los 30.000, obtendremos una vida extra. 
Para subir pisos, hay que tomar envion, y si consegui- 
mos tener en la mano el lapiz, no podremos recoger 
frutas. 

Este es uno de los entretenimientos que mientras nos 
permite jugar, no nos hacen sentir que desperdiciamos 
demasiado el tiempo. 

Obervemos bien las cantidades y tengamos a mano pa- 
pel y lapiz, porque algunas cuentas no son tan fades. 






Para comunicarse con noso- 
tros deben escribimos a Re- 
vista para usuarios de MSX, 
Parana 720, 5to. Piso, (1017) 
Cap. Federal. 



UBICACION DEL 
CURSOR 


Enalgunos programas, ales • 
tar trabajando eon graficos, 
trate varias veces de ubiear 
el cursor con LOCATE , en al- 
gun lugar determinado de la 
pantalla y no lo he consegui- 
do. Por esto, dejo que los 
mensajes salgan en cual° 
quier lugar de la pantalla, 
segun sea el antojo de la 
computadora. Y lo mas ex- 
traho es que con otras ins- 
trucciones como PSET, la 
siguiente impresion sera a 
partir de ese punto. 

No me digan que abro mal el 
archivo de pantalla, porque 
lo hice como aparece en los 
listados de los programas 
que ustedes publican. Pero 
no puedo agregar el capri- 
cho que les conte. Les agra- 
deceria que me den alguna 
sugerencia porque me canse 
de leer los mensajes por 
cualquier lugar de la 
pantalla. 

Martin Soto, Capital 
LOAD MSX 

T u problema es bastante co- 
mun a todos los programado- 
res que comienzan con este 
sistema standard. Pero todo 
es cuestion de familiarizarse 
con el manejo de las instruc- 
ciones. Hay algunas diferen- 
cias que deberas tener 
presente cada vez que reali- 
ces un programa. Como te 
habras dado cuenta hay mo- 
dos de texto y modos grafi- 
cos. Algunas instrucciones 
solo se pueden ejecutar para 
uno de esos dos tipos dife- 
rentes de pantalla. Por ejem- 
plo, es imposible ejecutar una 


instruccion de dibujo en los 
modos de texto (0 o I). Lo 
mismo sucede si intentamos 
imprimir directamente cuan- 
do trabajamos con SCREEN 
2 . 

La instruccion que intentaste 
usar en el modo grdfico, no 
es aplicable para este. Si que- 
res ubiear el cursor, te acon- 
sejamos hacerlo con PRESET 
para cualquiera de los 

graficos dos o tres. 
Habras notado que al hacer- 
lo con PSET, te pinta un pi- 
xel, esto se evita con la 
instruccion que te recomen- 
damos. Y no te aconsejamos 
rendirte ante los caprichos de 
la computadora, consulta tus 
dudas y juntos las solucio- 
naremos. 

IMPRESORA 
PARA MSX 


Ante todo los saludo y feli- 
cito por ser los primeros en 
guiara los usuarios argenti- 
nos de MSX y les deseo el 
mayor de los exitos. Soy un 
principiante de MSX ya que 
recien he adquirido una TA- 
LENT MSX DPC 200 y me 
gustaria saber: 

* iCuando estaran a disposi- 
cion de los usuarios de estas 
maquinas las ampliaciones 
de memorial ya que segun el 
manual y los folletos es ex- 
tendible a S76K. 

* iQue impresora podria 
usar para confeccionar reci- 
bos de sueldo, listados de 
stock, facturas, etc .1, ya que 
la impresora TALENT es de- 
masiado pequeha para lo 
que necesito. 

Jorge Caldoli - 25 de Mayo 
426 , Bernal 

LOAD MSX 

Seria muy interesante dispo- 
ner de los cartuchos expan- 


sores de memoria que 
mencionaste, nosotros tam- 
bien los esperamos. Pero eso 
depende de los fabricantes de 
HARDWARE como TA- 
LENT, que todavia no nos 


han confirmado nada sobre 
este tema. 

En relacion a tu segunda pre- 
gunta, la impresora de TA- 
LENT es mas que eso, es un 
ploter. Esto quiere decir que 
esta impresora te permitira 
graficar circulos, rectangulos 
o cualquier figura que desees. 
Es cierto que es pequena, pe- 
ro si no queres dibujar con la 
impresora, no es necesario 
alguna maquina especial. En 
tonces cualquier impresora 
con salida paralela te sirve. 


PERDIDA DE 
MEMORIA 
Tengo una TALENT MSX y mi 
problema es que so/amente 
puedo encontrar 28 K fibres 
para BASIC. iPodrtan uste- 
des decir me donde estan los 
restantes KBYTES y como se 
puedo acceder a el/os ? . 
Cesar Alcaraz, Capital 


LOAD MSX 

Los microprocesadores de 
16 bits de direcciones, co- 
mo usa la Talent MSX, pue- 
den acceder a un maximo de 
64 K directamente. 

En el apendice C del manual 
de la computadora, encon- 
tramos el mapa de memoria. 
(Ver figura 1). 

FIGURA 1 


Las paginas cero y uno del 
slot 0 es ocupado por ROM. 
En el slot 2, hay 64 K de 
RAM disponibles, pero al 
encender la computadora, 
parte de esta memoria no es 
accesible porque el siste- 
ma las reserva para opera* 
ciones. 

Esto deja solo los 28 K de 
RAM libres para el BASIC. 
Esta cantidad de memoria 
libre es la misma para las 
maquinas con 32K que pa- 
ra las de 64K. 

La ventaja de tener mayor 
capacidad de memoria se 
nota cuando se quiere utili- 
zar el codigo de maquina, 
porque esto puede ir en el 
area ocupada normalmen- 
te por el BASIC. En conse- 
cuencia, al trabajar con As- 
sembler, contamos con los 
64K disponibles para nues- 
tros programas. 




dtelogo- D.P. 


Computation, 
una oportunidad para que 
todos ensenen y aprendan. 

Un lugar para Actividades '86 Como? 


desarrollar el pensamiento. 

descubrir una vocacion. 

manejar lenguajes de 
computacion. 

comprender los multiples usos 
de un computador. 

capacitar y perfeccionar al 
docente. 

incorporar los avances 
tecnologicos. 

que el profesional domine el 
uso de nuevas herramientas. 

que los padres se reencuentren 
con sus hijos. 

"No se trata solamente de 
adquirir en forma puntual 
conocimientos definitivos, 
sino prepararse a elaborar a lo 
largo de toda la vida, un saber 
en constante evolucion y de 
aprender a ser." 

UNESCO 


Para Ninos, Adolescentes, 
Adultos, Docentes, 
Profesionales y 
Establecimientos educativos. 

INTRODUCCION A 

MICROCOMPUTADORES 

DIAGRAMACION 

ESTRUCTURADA 

LOGO 

BASIC 

COLOR - SPRITE - SONIDO 

COBOL 

PASCAL 

ASSEMBLER 

MS - DOS Y MSX - DOS 

DBASE II -MULTIPLAN 

PROCESADOR DE LA PALABRA 

INSTALACION DE 

LABORATORIOS 

en Establecimientos educativos 

con formacion de multiplicadores 

y apoyo a la comunidad. 


• Taller en grupos de12 a15 
personas. 

• Clases de 2 horas diarias. 

• 2 6 3 alumnos por equipo. 

• Equipos disponibles para 
practicas adicionales en horarios 
libres. 

• Becas rentadas en el 
Departamento de investigacion 
y desarrollo de Talent MSX. 

• Becas rentadas para 
docentes en Laboratories 

de Establecimientos Educativos. 

Informes, Inscription y Cursos 

Lunes a Viernes de 8 a 22 hs. 
Sabados de 8 a 13 hs. 
CENTRAL: 

Cabildo 2027 - ler. Piso "A" 
(1428) 

Capital Federal 
FI LI ALES: 

Centro: Esmeralda 320 - 3° 
(1343) 

Capital Federal 

Lanus: Caaguazu 2186 
L. Este 

Capital: Tucuman 2044 - 1° 
(1050) Capital Federal 


Talent asm. 

Intellgencia en credmiento. 


Centro para 
el desarrollo de 
la inteligencia. 



Descubramos y construyamos juntos los 
caminos que nos permitiran el uso inteligente 
de los productos de la creatividad humana. 


Titulos no oficiales 



A la computadora personal 


Talent/^ 


nada le es imposible 


Q. 

o 

<Q 

O 



Porque gracias a la norma internacional MSX, la 
TALENT MSX trasciende sus propios h'mites. 

Hasta ahora, cuando usted compraba una 
computadora personal de cualquier marca, quedaba 
automaticamente desconectado del resto del mundo 
de la computacion. Porque los distintos equipos y 
sistemas no eran compatibles entre si. 

Hasta que dos grandes empresas de informatica, 
la Microsoft Corp. de EE.UU. y la ASCII del Japon se 
pusieron de acuerdo para crear una norma standard: 
la MSX. Que se expandio tambien rapidamente en 
Europa. Y que hoy TALENT presenta por primera vez 
en la Argentina. 

Mientras que la mayoria de las computadoras de su tipo 
que se ofrecen en el mercado nacional, han sido 
discontinuadas por obsoletas en sus lugares de origen, 
TALENT MSX tiene casi ilimitadas posibilidades 
de desarrollo. Porque la norma MSX es en todo el 
mundo inteligencia en crecimiento. 

La TALENT MSX pone a su disposicion un mundo de 
software para elegir. Y con la incorporacion de todos 
sus perifericos llega a ser una autentica computadora 
profesional. 


UTIL 

Su poderoso sistema operativo MSX 
permite el acceso a todo tipo de 
procesamiento de datos: 

• Planillas de calculo. 

• Procesadores de palabra. 

• Graficos de negocios. 

• Bases de datos (d Base II. etc.) 

• Contabilidad general, sueldos. y 
jornales. costos. etc., desarrollados 
bajo CP/M en Basic. Coboi. Pascal o C. 

Con la posibilidad de conexion a linea . 
telefonica permite la transferencia y 
consulta de- datos entre computadoras 
personales. profesionales o bancos de 
datos. 

La grabacion de archivos es en formato 
MS-DOS. haciendola compatible con las 
computadoras profesionales. 

DIDACTICA 

Dispone de tres lenguajes para la 
ensenanza de computacion: LOGO como 
lenguaje de induccion para los mas 
chicos. Lenguaje de Programacion en 
Castellano, para todos los que quieran 
aprender a programar sin conocimientos 
previos. Y Basic MSX como lenguaje 


profesional Mas una ampha variedad de 
perifericos como el Mouse, Lapiz Optico. 
Tableta gratica. Track-ball. etc. 

DIVERTIDA 

La mas genial para Video-Juegos. Por la 
amplisima biblioteca de programas 
-todos nuevos- de la norma MSX en el 
mundo. Y ademas. el Basic MSX permite 
al usuario generar sus propios juegos 
con un manejo tan simple, como solo 
TALENT MSX puede ofrecer 

CARACTERISTICAS TECNICAS 

• Memoria principal 64 KBampliable 
hasta 576 KB. 

• Memoria de video: 16 KB RAM 

• ROM incorporada de 32 KB 
con el MSX-Basic de Microsoft. 

• Graficos completos. hasta 32 sprites 
y 16 colores simultaneos. 

• Generador de sonido de 3 voces 
y8octavas. 

• Conexion para cualquier grabador. 

• Interfaz para salida impresora paralela 

• Conectores para cartuchos 
y expansiones. 

• Fuente para 220 V 

y modulador PAL-N incorporado 


MSX es marca registrada de MICROSOFT CORPORATION 
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